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wn 
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® 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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LAB RARRARAAARASERALALASAELALALALESASEL EASES EASA RARE S RAR R RES ASAE RASA A ESS SS | 


a: FACILITY: DECnet remote terminals 

; ABSTRACT: 

; Handles the RSTS/E DECnet remote terminal protocol. 
; ENVIRONMENT: VMS = USER MODE 


0 
; AUTHOR: Mark Bramhall CREATION DATE: 29-Jan-1980 
; MODIFICATION HISTORY: 
v03-009 MHB0Q99 M. amhall 10-Jan-1984 
Fix automatic teak hy RSTS/E and TOPS-20. 
v03-008 MHB0094 - Bramhall 7-Mar-1983 
Added 8-bit esattak” support. 
v03-007 HB0082 M. H. Bramhall 2-Sep-1982 


Fic terminal wert hy looping problem. 


Restore terminal characteristics upon exit. 


PUPS B® BBS BS EB BB WIN NNW WII WII PINININPONONYNINIPY 2 PO ne 


NOAUS WN OS OD NAME WN SO OO NAME WIN $9 OO NIA UE WN OC OO NOU EU" OWOONOUS 


00 

44 Add TOPS-20 PASSALL mode. 

00 v03-006 wMC0045 Wayne Cardoza 26-F eb-1982 
0 Add flag to detect spurious SWAKE. 

v03-005 MHB0080 M. H. Bramhall 25-Jan-1982 


<z 
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v04-000 -SEP-19 RTPAD.SRCJIRSTSRT.MAR; 1 (1) 
000 28 : v03-004 MHB0073 M. H. Bramhall 11-May-1981 
25 : Make logging file be. seotted carriage control format. 
61 : v03-003 MHB0072 H. Bramhall 20-Apr-1981 
86 ; Added logging tile capability. 
0 64: v03-002 MHBO06S M. H. Bramhall 23-Sep-1980 
000 65 ; A large re-write to correct many problems. 
$88 6 is Added indirect file Capability. 


<_D 


Declarations 


-SBTTL Declarations 

-DEFAULT DISPLACEMENT WORD 
SDIBDEF 
SDSCDE® 
STTDEF 

-SBTTL Macros 
«MACRO QUIT STATUS 
mt NB 


< 
MOVL STATUS 
.ENDC =; NB <STATUS> 
QUIT 


RW 
.ENDM QUIT 
.MACRO QUIT_NOT_ABORT 70K 
BLBS ,_ OK 
Bru ABORT_QUIT 
.ENDM QUIT_NOT_ABORT 
.MACRO QUIT_ON_ERROR 70K 
BLES” RO, 


OOOOOCCOSoO 


MHD YS SS FS OVO VO WNNWVOOAASNNIN | “QOOCOOCOOCOCOCOC COSCO COCO OOOOCOOOOOOOOOOOOO 


OK 


5 
4 
5g 
74 
2 
f 
r5 
80 
3) 
84 
84 
8 
HG 
88 
89 
90 
4. 
38 
38 Ok: 
96 .ENDM QUIT_ON_ERROR 
a5 -SBTTL R/W and R-0 data areas 
00 
4 
03 
04 
05 
06 
07 
08 
09 
10 
1 
18 
14 
1? 
i 
15 
0 


0000 100 .PSECT _RSTSRT. LONG 
102 TOPS20: 
00 .BYTE 0 
105 EIGHT_BIT: 
00 .BYTE 0 
108 CTRLC_CNT: 
FFFFFFFF .LONG = =1 
111 CTRLC_SENT: 
00 .BYTE 0 
114 CTRLC_MATCH: 
43 SE ASCII /*C/ 
117 OUTPUT_WAIT: 
00 .BYTE 0 
00000200 120 LINKBUFLEN = 512 
° 122 LINKIOSB: 
00000012 9004 1 .BLK 
12 125 LINKBUFFER: 


fh RSTS/E Remote Terminal Protocol af 19736-1398 Oe: 18:83 ey 


MS Macro V04-00 
D.SRCJRSTSRT.MAR; 1 


om 
>< 


Device information buffer defs 
Descriptor defs 
Terminal characteristics defs 


TOPS=-20 flag 

8-bit terminal flag 

Count -1 of pending CTRL/C's 
CTRL/C sent flag 

Match string for CTRL/C's 
Terminal output wait flag 


Length of Link read buffer 
Link read 1/0 status block 


Link read buffer 


Go0Gesze"operroes 


RSTS/E Remote Terminal Protocol 


R/W and R-0 data areas 


00000212 
000000F F 


0000021A 
05 

0008 0g 12 
0000021E 
0000031D 
0000031F 
OA OD 
0000° 


000000 


cCoo"oOocon 
ooot"ooo™ 
ooot"oocon 
ooo"oeeo 

ocoo-"coom 


00 


00000453 


00000100 


00000460 


00000560 


00000568'00000020' 


ee ed ed ed = = — * = =  )  — 2 2 2 a Ss SS Ss SS I a 1 


-BLKB 
TERBUF LEN 
TERIOSB: 
~BLKQ 
BYTE 
-BLKW 
-BLKB 
TERBUFFER: 
-BLK 
srshineey sabes “a 
BYTE 
READ _MODE : 
WORD 
TERMASK: 
to 
10$ - LON 
LONG 
~LONG 
~LONG 
~ LONG 
LONG 
~ LONG 
~ LONG 
20$: 
ASCII_TRIM: 
REPT 
BYTE 
~ENDR 


CTRLC_10SB: 
~BLKQ 


CMDBUF LEN 


CMDIOSB: 
-BLKQ 


CMDBUF FER: 
-BLK 


CMDMASK : 
- LONG 


LINKBUFLEN 
255 


TERBUFLEN 


13, 10 


Bel Be te 


SEP=1984 02:14:23 VAX/VMS M 04-00 - 
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; Length of terminal read buffer 
; Terminal read I/0 status block 


TYPE = § => terminal data 
LENGTH = pH og s pengen 
DATA = data’s length 
ferminal read buffer 


; Terminal read echo buffer 


minal read mode 


Ter 
10$_READVBLK ! 10$M_ TRMNOECHO! 10SM. DSABLMBX 


—O-— »OOO rr 


256 
<.°ASCII_TRIM>8127 


" 
™m 
uw 
an 


CMDBUFLEN 


20$-10$, 10$ 


Terminal read terminator mask 
on form terminator mask: 


of _0 -31 except <NUL>, <TAB> 
None of 32- 63 
None of 64=- 95 
None of 96-127 
ALL of 128-159 
None of 160-191 except <10/0> 
None of 192-223 
None of 224-255 except <15/15> 


Translation table for 7-bit ASCII 


CTRL/C message I/0 status block 


CTRL/C message 

TY af = 5 => terminal data 
= pogeage "s re 

BATA. = da eng 


Length of command input buffer 
Command input 1/0 status block 


Command input buffer 


3; Command read terminator mask 


Long form terminator mask: 


| 
} 
nd 
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v04-000 R/W and R-0 data areas $7865 “19 7 88: 183 % RIPAD SRCIRSTSRT MAR: 1 . 
FFFFFFFF 8 183 10$: -LONG “*C<0> ; All of g- 31 
of f 184 - LONG 8 : None of 32- 63 
185 LONG ; None of gh 5 
00000 74 ~=«1 § -LONG 1831 3; ~=6None of -127 except <DEL> 
FFFFFFFF 78 1 LONG *C<0> 3 Ll of 128-159 
6° 44 7C = 188 -LONG 1a0 ; None of 18 -191 except <10/0> 
000 $8 580 189 -LONG 0 : ~=None of 1 $7582 
00000 : 4 13 208 LONG 1831 : None of 224-255 except <15/15> 
5 19 
0 198 CMDPROMPT: ; Command input prompt 
a4 5 194 -LONG <DSCSK_CLASS_D>a<DSC$B_ cLASS*8> 
000000 286 132 -LONG 0 
590 199 CRLFPROMPT: 3 <CR><LF> for utility string 
OA OD 00000598'010E0000' B208 138 eASCID <13><10> 
059A 00 ERASEPROMPT: ; String to erase the prompting 
000005A2°0000932A' B2yn 4 08 -LONG 20$-10$, 10$ 
OSA $8 REPT <146+2>+5+CMDBUFLEN 3 cAnnnnn::REM> command... 
OSA 04 -BYTE 8, 32, 8 
08 20 08 OSA 05 .ENDR 
O8cc 206 208: 
oscc§ 20 
O8CC 208 CMDHELP: ommand help message 
02000000 O8CC 209 «LONG <DSCS$K_CLAS3_D>a<DSC$B_ ciagee 8&> 
00000000 Bape $19 -LONG 0 
08D4 sig CMDODT: ; ODT -or- PASSALL command 
000008D6 08D4 21 -BLKW 
08D6 214 
08D6 $12 ENABLE LSB 
08D6 16 
08D6 217 CNILBF: J egureet gossage 
02 08D6 218 108: -BYTE 2 I z 2 => ONTROL 
0006" 08D7 219 - WOR 40$-10$ 3 LENGTH = ng s Lengeh 
01" 08D9 20 -BYTE 30$-208 ; MENU = menu's length 
01 O8DA $3 O$: -BYTE 180 
08DB § $: 
08DB8 3 CNTLBF_ECHOFLG: : Echo flag ( <0> ) 
00 08DB 4 -BYTE 0O 
08DC 5 40$: 
Bape 599 
poe DISABLE LSB 
00000028 O8¢ ? LINKMBXBUFLEN = 40 ; Length of Link mailbox buffer 
bBo 1 LINKMBXIOSB: 3 Link mailbox I/0 status block 
000008E4 bees § -BLKQ 
BE4 4 LINKMBXBUFFER: 3 Link mailbox buffer 
0000090C abe 5 -BLKB  LINKMBXBUFLEN 
00000028 +445 $ TERMMBXBUFLEN = 40 ; Length of terminal mailbox buffer 
its 3 TERMMBXIOSB: 3; Terminal mailbox 1/0 status block 
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00000914 40 9 -BLKQ 
914 42 TERMMBXBUFFER: ; Terminal mailbox buffer 
0000093C¢ i is -BLKB TERMMBXBUFLEN 
93C¢ 45 RMSMSGVEC: ; Model SPUTMSG vector for RMS msg's 
90900002 O98¢ 46 LONG 2 ° 
00000000 0000000: if ‘3 «LONG o @ 
94 49 NETMBXVEC: ; SPUTMSG vector for mailbox msg's 
80009000" ogee 531 TONG REMS_NETHAX 
00000001 0950 5 ‘tong fEMS- 
00000000 baee 27 LONG 0 
bae8 55 CONFBF: 3 Initial CONFIG message 
01 095 2$ -BYTE 1 ; TYPE = 1 => CONFIG 
0003" 0959 5 -WORD CONFBF_LEN ; LENGTH = message's Length 
00000003 3328 28 CONFBF _LEN = . > CONF BF 
0958 60 .ENABLE LSB 
ae 61 
958 66 TTYPBF : : Initial CONTROL message 
02 0958 63 10$: -—BYTE 2 3: TYPE = 2 => CONTROL 
000B" 095C 64 «WORD 40$-10$ ; LENGTH = message's Length 
01° O95E 65 -BYTE - ; MENU = menu's length 
1C O95F 66 ens: BYTE <1a2>!<1a3>!<1a4> 
0960 67 30$: : 
0960 68 TTYPBF_WIDTH: ; Terminal’s width ( <2> ) 
0000 0960 69 . 0 
096 70 TTYPBF_TYPE: ; Terminal’s type ( <3> ) 
0000 096 71 . 
0964 ie: TTYPBF _FILL: ; Terminal's fill factor ( <4> ) 
0000 0964 7 - WORD 
0966 74 40$: 
0966 275 
0966 76 .DISABLE LSB 
0966 77 ‘ 
0966 7& REMPROMPT: ; Main prompt for forming prompt string 
20 3E 4D 45 52 0000096E'010E0000' Bae ie -ASCID /REM> / 
097 81 HELPPROMPT: ; Help text for forming help string 
> 90000978"010¢0000" 097 es ne <13><10> 
69 gc 61 56 20 3 ied 20 29 § BR 97C 4 % Valid commands:% <13><10>- 
OD 3A 73 64 6E 61 6D 6D 6F 63 20 64 0988 
D OA 0994 38 <13><10>- 
20 20 4 4 20 $8 20 20 20 78 3 A 099 86 %*x Send a CTRL/x to remote node% <13><10>- 
$f 4C 52 54 4 2 g1 ; 64 gf ; 9A 
0 65 74 6F 6D 65 72 : of te ? : 14 
20 5D 45 55 4E 49 54 3 58 4F 43 OA O9BF 287 ZCOCNTINUE) Return to terminal mode% <13><10>- 
65 74 20 6F 74 § 6E 7 74 65 § 9C 
53 $3 F $0 of 61 6E 69 6p 9D ; ; 
0 20 20 20 5D 4 4F § 4C 43 0A O9E3 288 ZCLCOSEJ Close any logging file% <13><10>- 
6F 6C 2 9 of 61 $3 65 6F oc 43 SEF 
OD 65 6C 69 66 67 6E 69 67 6 9FB 
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0 20 05 F4 5B 54 4 A OA 289 TCRL/P TRL/P <13><10>- 
3 ge ? 20 23 39 f 6 2 ef 3 33 Ag ZCTCRL/P] Send a CTRL/P to remote node% 3><10 
06 6F 6D 2 ; of 64 : ee Ale 
0 20 20 20 20 5D 54 49 58 45 OA Age 290 ZEXCITI it i ion% <13><10>- 
20 é 0 if 0 22 33 6 ? é i nm ee : Exit remote terminal session 0 
65 73 20 6C 61 6E : ee i rt) a ry: 
20 20 20 20 5D 50 4 45 48 0A OAS 291 SHECLP) T this hel % <13><10>- 
COSTE RRA G IR ete kee ae : 
6C 69 66 5D 47 5B 4F 4C OA OA7 292 ZLOCG) file Creat d h ing file% <13><10>- 
oo $8 bk Se Sh 30 a5 7% 61 65 72 43 Ons . en a en eee ee ' 
oF For OB Ue Se BA 
20 20 20 5D 4C 41 4D $3 $6 4F 3 oA paar 293 ZNOCRMAL] Restore NORMAL mode% <13><10> 
4D 52 4F GE 20 65 72 6F 74 73 65 52 0AB3 
OA OD 65 64 6F 6D 20 4C 41 wa4 96 
OAC8 $3¢ RSTSHELP: ; Help text for RSTS/E only 
OAC8 $96 -ASCID - 
20 5D 54 5B 44 4F 00000AD0'010E0000' OAC8 97 xO0CTI Enter ODT mode% <13><10> 
4F 20 72 65 74 ; 45 20 20 $8 0 20 OAD6 
OA OD 65 64 6F 6D 20 44 BAEC 298 
we $05 TOPS20HELP: . ; Help text for TOPS=-20 only 
41 53 53 5B 41 50 OOOO0OAF3'010E0000" OAEB 301 ZPACSSALL] Enter PASSALL mode% <13><10> 
50 20 72 65 74 6E 45 20 20 5D 4C 4C OAFI 
OD 65 64 6F 6D 20 4C 4C 41 53 53 aA $805 
081 0 
0B1 358 HELLO: ; Login command start for RSTS/E 
OD 4F 4C 4C 45 48 03 00" od 304 eASCIC <*A'C'S31>/HELLO/<13> 
OB1A 05 
OBIA 38 LOGIN: ; Login command start for TOPS-20 
20 4E 49 47 4F 4C 03 00° OBIA 307 ASCIC <*A'C'&31>/LOGIN / 
07 pela 08 
08 3 09 CONNECT: :; Connection established message vector 
00000003 0B 10 - LONG 
i444 44 08 . 1} thee SENS _REROTE 
§0099000" oe 18 [LONG FINALPATH 
0B 15 LOGGING_FLAG: ; Logging file active flag 
00 0B 16 -BYTE 0 
tp \8 LOGGING_FDEF : ; Logging file's defaults 
47 4F 4C 2E 44 41 50 54 38 1 ASC. /RTPAD.LOG/ 
0000000 op : Y LOGGING_FDEF_LEN = .-LOGGING_FDEF 
: § ~ALIGN LONG 
op C 4 LOGGING_FAB: ; FAB for Logging 
3¢ 5 SFAB - 3; Allocate a FAB 
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00000000 00000000 00000002 
000000F F 


00000B8E4 


00000CE3 


MEW -OOOno 


LOGGING_RAB: 
SRAB - 


LOGGING_MSGVEC: 


LOGGING_BUFLEN = 255 
LOGGING_BUFDESC: 
-BLKQ 


LOGGING_BUFFER: 


MMMOOOV OSS SF WOOO OOOOOO.WIWIWI it 


HHL LOOOOOQOOMNAMAAOOOAAAAOAAOAO 


SHS DO DOOD DO DDO DDD DOD SoD SOD 


VINEE LEE 


WwW 


LOGGING_FAB, - 
SEQ, = 


WBH 


LOGGING_BUFLEN 


Se Sete Sete Fee 


——-—— 


St be: 18:63 AX/VMS Macro V04-00 Page 3, 
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address of logging file defaults 

; length of Logging file defaults 
we'll be doing PUT*s 

we'll only do sequential access 

it should be sequentially organized 
use implied corr tone control format 
use variable length records 


; RAB for loggin 
; Allocate 3 RAB! 


use the logging file FAB 
we'll do sequential accesses 
we want write behind for speed 


; Logging file error $SPUTMSG vector 


; Logging file record buffer length 
; Logging file record buffer descriptor 


; Logging file record buffer 


No 
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Remote Te 
liz STS/ RTPAD.SRCIRSTSRT.MAR; 1 (3) 
cf ; -SBTTL Initialize RSTS/E Remote Terminal Protocol 
cE 5 .SHOW MEB 
0000 : -PSECT PROTOTBL, BYTE, NOEXE 
001 5 -WORD 180 3 <0> => RSTS/E protocol 
00009080" $i «LONG RSTSRT : This is our initiatiz ation entry 
0000 099 86 -PSECT RSTSRT, NOWRT 
64 RSTSRT:: Initialize RSTS/E protocol 
OFFC S 6s WORD “M<R2,R3,R4,R5S,R6,R7.RB,RO_RIO.RI1> , 
OOOO'CF D4 a902 $ CLRL RETSTATUS ; Pre-clear return status 
0006 $3 ; Format and send CONFIG message 
006 71 $Q10W_S - : _— the initial CONFIG message 
0006 i CHAN = LINKCHA n the Link channel 
0006 7 FUNC = S*#10$ WRITEVBLK.° - ny writing obviously 
0006 74 10SB = LINKIOSB, - 3; use an I03B 
006 75 Pl = CONFBF, - ; pre-built CONFIG message 
006 376 P2 = #CONFBF_LEN : and its Length 
7E 7C¢ 006 CLRQ =(SPY 
7E 7C 0008 CLRQ (SP) 
03 DD OO0A PUSHL #CONEBF_LEN 
O958°CF DF 000C PUSHAL CONFBF 
7C 0010 CLRQ tact 
OOOA' CF 7F 0012 PUSHAQ LINKIOSB 
7E “ C 016 MOVZWL S*#10$ Mad +s wee -(SP) 
7E 0000'°CF C 0019 MOVZWL LINKCHAN,=-( 
00 DD $3 PUSHL t 
00000000 ' GF 0c FB 002 CALLS #12,G6*SYSS$QI0W 
Base 377 QUIT_ON_ERROR ; Quit on any error 
03 50 8 0027 BLBS RO, 300608 
0304 31 002A auit 
002D 0000$: 
50 OOOA'CF 3C On $38 4. LINKIOSB, RO ; Get the 1/0 completion status 
0 § 79 QUIT_ON_ERROR > and quit on any erro 
03 50 8 3 LBS RO, 300018 
02-9 «31 «0035 BRy quit 
038 5 0001$: 
6 i ; Format and send CONTROL message 
51 0004'CF 48 6 HY MOVL TERMCHAR+4, R1 Address terminal characteristics 
0960'CF 06 Al 8B 0 4 se MOVW DIBSW DEVBUESIZ(M1), 1 TyPBF WIDTH ; Set terminal’ s width 
05 08 Al : €1 4 5 BBC S*#TTSV V2 Oue ER, reat -DEVDEPEND (RT); 10$ : _\auer case? 
998 "CF C A8 48 § BISW pchad>i2 TYPBF-T $ay S° 
05 08 Al OC £1 004D 10$: BBC sriT3y score “OIBSL =DEVbEpEND CA} Scope? 
998 "CF 1 A8 B28 BISW #1a0, TTYPBF_ TYPE ay 38 
0 Al : E1 005 20$: BBC S*aTisy MECHTAB DIBSL -pivpebenbtni) 08 ; Tab? 
996 "CF A8 5C BISW #iai, TTYPBF_TYPE ay 82 
05 08 Al 4 —1 61 91 30$ BBC S*aTtsv HOSTSINC DIBSL -beVbEpEnD cit 40$ ; XON? 
998 "CF 19 A8 308 BISW #ia4, TTYP ay $9 
05 08 Al 13 + €1 0068 393 408: BBC S*aTtsv TMECHFORM. DIBSL _BeVDEPEND (AT O$ ; Form feed? 
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962'CF 0 aA8& 007 94 BISW #ia5, TTYPBF_TYPE ; Yes, $O Say $o 
09 88 Al if E1 of 95 50$: BBC S*#Tf$v_EIGHTBIT D18SL_bEVDEPEND(RIS, 60$ ; 8-bit? 
0962" CF 0040 8F AB OO7A 3 BISW #1a6, TTYPBF_TYPE : Yes, so say $0 
0 O9sc'cr 3C $3) 97 608: MOVZWL TTYPBF+1, RO i; Get initial CONTROL message length 
086 38 $Q10W_S - 3; Send the message 
086 9 CHAN = LINKCHAN, - 3 on the Link channel 
086 400 FUNC = S*#10$_WRITEVBLK, - ; writ ng obviously 
086 401 10SB = LINKIOSB, - ; use an 10S8 
+44 rh Pi = TTYPBF, - ; use filled in aesesye 
086 40 P2 = RO ; and its extracted length 
7E 7C¢ p88 CLRQ -(SP) 
7 7C¢ Bee CLRQ -(SP) 
5 DD OBA PUSHL RO 
toatl OF $5 PUSHAL TTYPBF 
E 7C 009 LRQ -(SP) 
OOOA'CF /7F 0092 PUSHAQ LINKIOSB 
7E 00° HS 0096 MOVZW S“#10$_WRITEVBLK,-(SP) 
7E 0000' CF C 44 MOVZWL peatan tong 
00 DD O9E PUSHL # 
00000000 ' GF 0c FB OQOA0 CALLS #12,G*SYS$Q10W 
QOA7 404 QUIT_ON_ERROR ; Quit on any error 
03 50 34 00A7 BLBS RO, 30002$ 
0284 31 QOAA W quit 
50 OOOA'CF 3C OQOAD 405 MOVZWL LINKIOSB, RO ; Get the 1/0 completion status 
00B2 406 QUIT_ON_ERRO ; and quit on any error 
03 50 4 pes LBS RO, 30003$ 
0279 3? 00B Bw quit 
00B8 0003$: : ; 
11 11 00B8 407 BRB XXXRT ; Continue in common code 
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-SBTTL Initialize TOPS-20 Remote Terminal Protocol 


-PSECT PROTOTBL, BYTE, NOEXE 
WORD 183 
-LONG TOPS20RT 

«PSECT RSTSRT, NOWRT 


me elatus 


“M<R2,R3,R4,R5,R6,R7,RB, ig! R10 


3; <3> => TOPS-20 protocol 


; This is our initialization entry 


nit tet e TOPS=-20 protocol 


e-clear return — 
et the TOPS- 20 


BISwW #10$M_NOECHO! 10$M weer th, sREab MODE ; +ops-38 read mode 
-SBTTL Common protocol initialization 
XXXRT: 


3; Common protocol initialization 


; Form the command prompt and help strings 


MOVL #3, RO 
PUSHAQ REMPROMPT 
PUSHAQ NODENA aie 
MOVIL. TERMCHAR 


; Guess at scope. type, prompt (3 args) 


3; Last Src is 


; avaeee Src Ry the Local node name 
ess terminal ainererter mares 


BBS S*#TT$V_ SCOPE. DIBSL DEVDEPENDERI) « 10$ ; Scope? 


INCL _—RO 
PUSHAQ CRLFPROMPT 

CMD 

RO, G°STRSCONCAT 
_ERRO 

BLBS RO, 30004$ 
BRW quit 

PUSHAQ RSTSHELP 

MOVW #°AL9D/, spaponr 


BLBC ease 
MOVAQ TOPS OHELPS (SP) 
MOVW ay had gp fhDoot 


20$: PUSHAQ Gabe 


CMDHELP 
LLS #3, G*STRSCONCAT 
guit “ON_ERROR 

“BLBs RO, 30005$ 


aR uit 
0005$: 
; Format initial command string(s) 


MOVAB TERBUFFER, R3 
| a FIN ana R6 


BE 
MOVAB ri. 
B TOPS 6, "os 


poehoeues 6 ERASEPROMPT 


; Nope, change to non-scope prompt 


3 _and use an initial a <CR><LF> 
; Erasing is done with <CR><LF> 
; Dst string is the real prompt 
; Go concatenate the strings 

; Quit on any error 


Is it really RST 


and the ODT/PASSALL command is P 
First Src is general help text 
Dst string is the real help msg 
Go concatenate the strings 
Quit on any error 


Address terminal read buffer 
me there a final ACS? 


vep 
er 


Last Src is RSTS/E specific help text 
and the RST command is OD 


Nope, ghenge §¢ TOPS-20 specific gante 


polnt fe, RSTS/E Login command 
s-So°® point to its login command 
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v04-000 Common protocol initialization -SEP=-1984 ERTPAD.SRCIRSTSRT.MAR; 1 (4) 
50 1 3 14A 460 30$ MOVZBL (R1)+, RO 3; Get Login command start size 
63 3! 9 140 461 MOVC RQ. (R1), (R3) ; and move in start of login command 
7 151 rh ¢ MOVL R3, R7 3 then save deg of tes beyond it 
63 0004'DF 6 154 46 MOVC R6, @FINALACS+4, (R3) |; Now move in the f 
83 0D 0 15A 464 MOVB #18, (R3)+ ; terminated with a <CR> 
1 9200's § 15D 465 BLBS ToP§20, 50$ 3; Check for sags Mi sonnet if TOPS-20 
67 56 20 A 016 466 LOCC © #32, -R6, (R7) : Find a <SP> in the ACS 
6 12 Q16 46 BNE 40$ ; Found, go change it 
67 56 09 3A 016 468 LOcc #9, R6, (R7) 3 No ge a re) tind a <TAB> 
1A 13—«(016C 469 BEQL 608 ; None, don 
61 38 90 OQO16€ 470 40S: MOVB #*A/;/, (R1) : Cay the <SP>/<TAB> to semi-colon 
3 ee 4 BRB 60$ 3; Now done 
QOOOO'CF B65 153 138 50$: TSTW FIRSTCMD 3 - there an initial command Line? 
OF 13 QO177 474 BEQ ; Nope 
0004 ' DF 0000'CF $ 0179 475 MOVC FIRSTCMD, @FIRSTCMD+44, (h3) 3; Yep, move it in 
0D 90 0181 476 MOVB #13, (R35+ : terminated Sith a <CR> 
OOOO'CF B4 O188 47 CLRW FIRSTCMD : initial commend used all up 
53 QO00021E'8F C2 0188 478 60S: SUBL #TERBUFFER, R3 ; slculete the size of the string 
11 1A 0O18F 479 BGTRU 70$ : R exists, we'll send it soon 
0191 480 SPUTMSG_S - ; Announce the connection 
0191 481 MSGVEC = CONNECT 3 with the final path filled in 
00 DD 0191 PUSHL #0 
00 DD 0193 PUSHL #0 
00 DD 0195 PUSHL #0 
OB22°CF ODF 0197 PUSHAL CONNECT 
00000000'GF 04 FB o18 48 CALLS #4,G*SYSSPUTMSG 
01A2 188 ; Remember terminal's EIGHTBIT setting and set roms to 
Bras tee : FULLDUPLEX, NOWRAP, NOESCAPE, and NOPASSAL 
51. Q004°CF DO O1A2 486 70$ MOVL TERMCHAR+4 int to terminal characteristics 
0408 Al OF £1 OIA? 487 BBL S*#TTSV eréHNBIT, DIBSL -beVvDEPEND (Rt 75$ ; B-bit terminal? 
0001'CF 96 O1AC 488 INCB EIGHT_BIT es, so remember as 8-bit terminal 
7E 04 Al 7D Q1B0 489 758: ova DIB$B_DEVCLASS(R1), =($P3 ; Copy the information to set 
51 6€ 7E O1B4 490 MOVAQ (SP), °R1 ; _and get a gigner to it 
04 Al 00100209 BF CA O1B7 491 ICL #TTSM_HALFDUP - : Clear HALFDUPLEX 
0 1BF 49 'TTS$M_ WRAP - WRAP 
01BF 49 'TTSM_ ES cr - 4h c. 
01BF 494 'TTSM_ PASSAL and P ASSALL modes 
O1BF 495 bIBSL~DEVDEPEND= DIBSB _DEVCLASS(R1) :. in the saved information 
Q1IBF 49 $Q10W_S - :; Force terminal characteristics 
01BF 49 CHAN = CNTRLCHAN 3 using the control channel 
piee 138 FUNC = S“*#10$ SETMODE, ; with mode setting function 
1BF 49 I10SB = TERIOSB, - 3; use an 10S 
01BF 289 P1 = (R1), - ; mew characteristics are here 
1BF 01 P2 = #8 3 new characteristics are this long 
7E 7C 1BF CLRQ -(SP) 
7E 7C¢ 1C€1 CLRQ -(SP) 
08 oD ite PUSHL #8 
61 DF 1¢ PUSHAL (R1) 
7E 7C 1C7 CLRQ -(SP) 
212°CF 7F 01C9 PUSHAQ TERIOSB 
E 00° He 1CD MOVZWL S“#I0$_ SETMODE,-(SP) 
7E 0000'CF C 100 MOVZWL CNTRLCRAN,-(SP5 
0 OD 1D PUSHL #0 
00000000 ' GF C FB 0107 CALLS #12,G*SYS$Q!0W 


RSTSRT RSTS/E Remote Terminal 
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5E 08 CO iF 286 ADOL #8, SP ; Clear up the stack 
1E QUIT_ON_ERROR ; Quit on any error 
03 50 gS 1E1 BLBS RO, 30006$ 
014A 31—O1E4 RW auft 
1€7 0006$: 
50 O212°CF 3C Q1E7 504 MOVZWL TERIOSB, RO 3; Get the I/0 completion status 
1EC 505 QUIT_ON_ERROR ; and quit on any error 
03 30 58 1EC BLBS RO, 30007$ 
013F «= .31—s<O1EF Bry quit 
1F 0007$: 
O1F 506 
oF 206 ; Enable CTRL/C AST's on the terminal (CTRL/Y has been taken away) 
OFF 30 bie 4 BSBW ENABLE_CTRLC ; Enabie CTRL/C AST‘s on terminal 
O1FS 511 ; Ensure a restored carriage 
O1FS ar 
O1FS5 = 51 $Q10W_S - ; Output <CR><LF> to restore carriage 
O1F5 = 514 CHAN = WRITECHAN, - ; using the write channel 
O1F5 515 FUNC = S*#I0$_WRITEVBLK, - writing obviously 
Q1FS «516 Pl = ECHOBUFFER+2, - ; buffer containing a <CR><LF> 
O1FS) = 5517 P2 = #2 ; which is 2 characters 
7E 7C OFS CLRQ -(SP) 
7E 7C OTF? CLRQ -(SP) 
02 DD O1F9 USHL #2 
O31F °CF DF O1FB PUSHAL ECHOBUFFER+2 
7C «OFF CLRQ -(SP) 
DD 0201 PUSHL #0 
7E " KX 0205 MOVZWL S“#I0$_WRITEVBLK,-(SP) 
7E 0000'CF 3C 0206 MOVZWL wWRITECAAN,=(SP) 
DD 0208 PUSHL #0 
00000000'GF OC FB 8¢00 $18 CALLS #12,G*SYSS$QI10W 
bs ie 233 ; Set up for indirect file and/or initial command 
QOOO'CF 95 O54 521 TSTB INDFLAG : Indirect file active? 
13. 13 0218 256 BEQL 80$ ; Nope 
QOOOO'CF 01 90 QO21A 52 MOVB #1, INDFLAG ; Yep. ensure flag set to +1 
0024'CF OQ21E°CF 9E O2IF ase MOVAB TERBUFFER, SYSINRAB+RABSL_UBF ; Set indirect file data address 
OO20'CF OOFE 8F BO 0226 525 MOVW #TERBUFLEN-1, SYSINRAB+RABS$W_USZ ; and maximum record Length 
O000'CF B85 022d 268 80S: TSTW FIRSTCMD : Pending initial command Line? 
07 13 0231 25 BEQL 90$ ; Nope 
O000'CF OO000'CF 92 0 ; 5 8 MCOMB INDFLAG, INDFLAG :; Yep, set flag to -1 (or -2) 
3, $80 3; Send the command string(s) or queue up a terminal read 
0214°CF 53 £4B0 6 3, 236 90$: MOVW R3, TERIOSB+2 ; Set size of the command string(s) 
A 15 F 3 BLEQ ; No size, so no command(s) to do 
0212'CF 00° B80 4] 230 MOV S“#SS$_NORMAL, TERIOSB ; Some size, set status to success 
0216°CF D4 46 535 CLRL TERIOSB+4 3 and no terminator 
8 4A 536 SDCLAST_S - ; Fake an AST 
4A 537 ASTADR = [ERREADAST . - ; for terminal read done 
4A 538 ASTPRM = ; saying wait for output to continue 
00 OD 4A PUSHL @# 
01 DD 4C PUSHL # 
06C1°CF OF ry PUSHAL TERREADAST 
00000000'GF 03 FB 5 CALLS #5,G*SYSSDCLAST 


~~ 
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Z BRB 110$ ; Continue 

‘} 100$: BSBW TERREAD ; Queue up a terminal read 


; Queue up reads on the Link mailbox, Link, and terminal mailbox 


110$:  BSBW LINKMBXREAD ; Queue up a Link mailbox read 
BSBW NKREAD ; Queue up a Link rea : 

BSBW TERMMBXREAD 3; Queue up a terminal mailbox read 

RET ; Return. 


co 
_ 


ono 
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-000 Terminal mailbox AST' -SEP-1984 15:14 (CRTIPAD.SRCIRSTSRT.MAR; 1 
iI -SBTTL Terminal mailbox AST's 
TERMMBXAST: Tecatnel net tbox AST's 
OFFC 68 33 sWORD “M<R2,R3,R4,R5,R6,R7,R8, ko, R10,R11 
50 o90c'cF 3C 6A 2¢ poyeM, TERMMBXIOSB, RO ; Get the 1/0 completion status 
6F 556 QUIT_GN_ERROR 3 and quit on any error 
03 50 58 oF “BLB RO, 30008$ 
doBc «31 fg RY ne quit 
0000 ' 8F 0914'°CF Bi 75 557 CMPW TERMMBXBUFFER, #MSG$_TRMHANGUP ; Is it a terminal hangup? 
2. 39 7C 228 BEQL 10$ : Yep, exit right now... 
tv. 7E 5 BSBB TERMMBXREAD ; Else just queue up another read 
04 8 + 269 RET ; Return. 
0281 562 10$: QUIT S*#SS$_NORM Quit without any messages 
50 00° po 0281 MOVL CAASSS_ NORMAL, RO r ' 
OOAA 1 8 He 563 BRW QUIT 
$587 564 TERMMBXREAD: 3 Queue up a terminal mailbox read 
0287 565 $Q10_S - ; Queue up a request 
0287 566 CHAN = TERMMBXCHA z on the terminal mailbox channel 
0287 567 FUNC = S*#10$ READVBLK, -; seating & obviously 
0287 568 10SB = TERMMBRIOS 3; use an 
0287 569 ASTADR = TERMMBXAST , - 3; come here ae completion 
0287 570 Pil = TERMMSXBUFFER, : read message into this buffer 
ose? 571 P2 = #TERMMBXBUF LEN 5 which is this long 
7E 7C 0287 CLRQ -(SP) 
7E 7C 0289 CLRQ -(SP) 
28 D os38 PUSHL AE aa 
0914'CF DF 028D PUSHAL TERMMBXBUFFER 
00 DD 0291 PUSHL #0 
D2 DF 0293 PUSHAL TERMMBXAST 
O90C "CF 7F 0296 PUSHAQ TERMMBXIOSB 
7E 0 C O29A MOVZWL Tenses READVBLK ,-(SP) 
7E 0000° CF C 0290 MOVZWL ERMMBR CHAN, -(SP) 
00 DD OSae PUSHL ¥ 
00000000 ' GF 0c FB Q2A4 CALLS #12,G6*SYS$QI0 
O2AB 572 QUIT_ON_ERROR ; Quit on any error 
03 50 58 02AB BLBS RO, 30009$ 
0080 31 O2AE BRw quit 
358) 0009$: : 
05 0281 573 RSB : Exit. 


Nae 
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; oe -SBTTL Link mailbox AST's 
B 55 LINKMBXREAD ; Queue up a ae Deane read 
B 4 ~ 3 Queue up a re 
B 7 CHAN = MAILCHAN, - 3 on the Link asi thes channel 
B 0 FUNC = S*#IO$ _READVBLK, = ; reading obviously 
8 1 IOSB = LINKMBRIOSB, - ; use an I0SB 
B 2 ¢ ASTADR = LINKMBXAST, - 3 come here upon completion 
B 8 Pl = LINKMBXBUFFER, - ; read message into this buffer 
B 584 P2 = #LINKMBXBUFLEN 3; which is this long 
7E 7C 028 CLRQ -(SP) 
43 7C 8 B4 CLRQ -(SP) 
2 DD B6 PUSHL M#LINKMBXBUFLEN 
eek ee <a al 
O2DE ‘CF DF 0 Bf PUSHAL LINKMBXAST 
O8DC'CF F O2C PUSHAQ LINKMBXIOSB 
7E . C 02C6 MOVZWL S“#I10$ wart 5 wm -(SP) 
7E  0000'CF M3 8 3 oot ag BAILCHAN.={3 »7(SP 
00000000 ' GF 0c FB 02D0 CALLS #12,G*SYS$QI10 
02D7 = 585 QUIT_ON_ERROR ; Quit on any error 
03 50 8 0207 BLBS RO, 30010$ 
0054 31 OeDA BRW quit 
0200 30010$: 
05 O2DD 586 : Exit. 
BgdE 587 
Q2DE 588 LINKMBXAST: Link nei tbex AST's 
OFFC Ode 389 -WORD “M<R2,R3,R4,R5,R6,R7,RB, gt R10,R11 
50 O8DC'CF 3C O56 591 MOVZWL LINKMBXIOSB, RO ; Get the 1/0 completion status 
Ose2 592 QUIT_ON_ERROR : and quit on any error 
03 50 58 02E5 RO, 30011$ 
0046 31 Oee8 quit 
\d LINKM x U #MSG CONFIRM ; Simply the confirmation? 
0000" 8F eed | a 3 eB 237 oaee iN BXBUFFER, $_ — impl fi i 
BC 10 Q2F& 595 BSBB LINKMBXREAD § Nope just queue up another read 
04 +O Fg 238 RET 3; Return. 
0000'S8F O8E4'CF 861 yi 598 10$: CMPW INKMBXBUFFER, #MSGS_ DISCON ; Is it a valid disconnect? 
26 = «13 oghe 599 BEQL 0$ Yep exit right now. 
0000' 8F O8E4'CF B1 0300 600 CMP INKMBXBUFFER, #MSG$ “ABORT an it a Link abort? 
ig 83 7 et ane? 0s ; Nope. other, go announce it 
18 0000'CF 3 9 6 ¢ BLB TOPS2U, 79 skip announcement if tops- -20 
0954°CF O8E4'CF C 03 f 603 20$: Rov UL LINKMBXBUF ER, NETMBXVECS12°> “shore the mailbox code 
31 604 SPUTMSG_S - : Put out a message 
$12 605 “HSGVEC = NE TMBXVEC 3 with the mailbox error code 
00 oD 15 PUSHL #0 
8 DD gel? PUSHE #0 
0 DD GO519 USHL 
0948'CF DF 0318 PUSHAL NETMBXVEC 
00000000 ' GF 04 FB 1F CALLS #4,G*SYSSPUTMSG 
6 606 30$: QUIT $“#SS$_NORMAL ; Quit without any messages 
0 99" p0 6 MOVL ~ S*#SS$_NORMAL, RO 
0005 1 S$. gap BRwW QUIT 


RSTSRT RSTS/E Remote Terminal Protocol 


19:93 AX/VAS Macro V04-00 
215:14 


Page 


a“ 


RTPAD.SRCJRSTSRT.MAR; 1 


; Possible image termination 

; Is the Link simply aborting? 

; Yes, we'll wait for mailbox message 
3; Image termination 
; Do we already have a return status? 
: Yep, don't overwrite it with another 
; Set the final completion status 

; Go close out the oggin file if any 
; Cancel any current terminal read 

3 on the read channel 


3; Cancel operation(s) 
so we can reset the terminal 


Point to terminal characteristics 
; Copy the information to set 
; _and get a pointer to it 
; Force terminal characteristics 
3; using the control channel 
with mode setting function 
; mew characteristics are here 
; Mew characteristics are this long 


; Clear up the stack 
; Indicate a legitimate SWAKE 
; Wake up the mainline program 


; Return from whatever level. 


v04-000 Image termination 
: 609 -SBTTL Image termination 
C 616 -ENABLE LSB 
C 61g ABORT_QUIT: 
00' 50 01 € 61 CMP RO S*#SS$_ABORT 
62. (13 0 f 614 wa BEQL «6-208 
0000" cE 05 1 616 TST RETSTATUS 
00orer oraP HB EERE SIF os. BOM Bs ReusTaT 
§ F 620 " -$CANCEL_S =" 
O33F 621 CHAN = READCHAN 
7E QOOO'CF 3¢ 033F MOVZWL READCHAN,=(SP) 
00000000'GF 01 FB 0344 “ tants CALLS #1,G°SYS$CANCEL 
0348 838 “CHAN = CNTRLCHAN ; 
7E QO00'CF 3¢ 0348 MOVZWL CNTRLCHAN, <(SP) 
000agFOO'Foouwet Ob SHY gem febhPamnta Oh S8CAME 
7E 04 Al 7D 035¢ 689 MOV DIBS$B_DEVCLASS(R1), -(SPS 
6— 7E 0360 626 MOVAG (SP), ~R1 : 
0363 628 CHAN = CNTRLCHAN, - 
0363 629 FUNC = S*#I0$_SETMODE, - ; 
gee Be Ps 
7E 7C 0363 CLRQ 0 =(SP) 
OB bb O86? sien. a8 
61 DF 0369 PUSHAL (R1) 
66 bb O3eb PUSHL «#0 
7E 00° aC 036F MOVZWL $*#10$_SETMODE,-(SP) 
7E 0000" CF 3¢ 037¢ MOVZUL CNTRLCAAN, =(SP5 
00000000' GF Oc FB 0379 Me am CALLS | #12,G*SYS$Q10W 
oooo'er OT 90 0383635 MOVE = #1, WAKEFLAG 
0388 634 SWAKE_ 
$6 «Db O8BA PusHt RO 
00000000'GF 02 FB 6 a¢ CALLS #2,G*SYSSWAKE 
04 0393 635 20$: RET 
0394 637 .DISABLE LSB 
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v04-000 CTRL/C AST‘s et bg: 18:92 RTPAD.SRCJRSTSRT.MAR; 1 . 
94 639 .SBTTL CTRL/C AST's 
94 640 
94 641 CTRLCAST: CTR ‘k AST's 
OFFC 34 46 [WORD *M<R2,R3,R4,RS,R6-R7-RB-RO_RIO R11 
5c 610 38 644 BSBB ENABLE_CTRLC 3; Re-enable CTRL/C's 
0002" ff 6 43 $72 inch CTRLC C_CNT : as message already in-progress? 
51. O453°CF 8 89E 9 $49 108: MOVAB CTRLC_MSG, R1 3 Address the CTRL/C message 
50 O1 Al 3C A o78 MOVZWL 1(R1) ; Get the CTRL? ¢ message length 
06 0000'CF ES O3A7 64 LBC ToPS26, 20$ ; ALL set if RSTS 
51 04 £8 8 AC 650 ADOL #4, RI B 3's TOPS= 20, 4 the header 
50 04 C AF 651 SUBL #4, RO $ and don't co it 
038 O26 20$: $Q10_S - 3; Queue up a ETRLIC Link send 
038 65 CHAN = LINKCHAN, - ; using the Link channel 
038 654 FUNC = S*#I0$_WRITEVBLK, - ; gta obviously 
038 655 IOSB = CTRLC_TOSB, - ; use an 10358 
038 656 ASTADR = 30$, - 3; come here upon completion 
038 657 P1 = (R1), - ; this is the message 
038 658 P2 = RO ; with this size 
7E 7C 0382 CLRQ (SP) 
7E 7C 0384 CLRQ -(SP) 
50 DD 0386 PUSHL RO 
61 DF 0388 PUSHAL (R1) 
00 OD O3BA USHL 40 
O3E1'°CF F 038C PUSHAL 30$ 
044B'CF F Q3C0 PUSHAQ CTRLC_IOS 
7E 00° 3c 03C4 MOVZWL S*#10$ pet 1 pa -(SP) 
7E O000'CF 3C 03C7 MOVZWL L'NKCHAN,=-( 
00 dd O3CC #0 
00000000 ' GF 0c FB Back CALLS #12,G6*SYS$QI10 ‘ 
03D 659 QUIT_NOT_ABORT ; Quit on non-Link-abort error 
03 50 8 03D5 BLBS RO, 30012$ 
FF51 31 0308 ABORT _QUIT 
0308 30012$: 
0006"CF 01 90 O3DB 660 MOVB #1, CTRLC_SENT ; Say a CTRL/C moesene was sent. 
04 bees 98) RET ; Return pending CTRL/C completion. 
03E1 663 308: ;_CTRL/C passage sent AST 
OFFC 0Q3€1 664 WORD “M<R2,R3,R4,R5,R6,R7,R8, is, R10,R11 
50 O44B'CF 3C O3E3 665 MOVZUL CTRLC’10SB, RO ; Get the $00 cqnptosion stotus 
O3E8 666 QUIT_NOT_ABORT 3: Quit on non-Link-abort error 
03 30 8 03E8 BLBS RO. 2001 3$ 
FFS3E 1 OSE RW ABORT _QuIT 
AB 0002"CF F4 3E6 667 SOBGEQ CTRLC. CNT, 108 ; Do it again if more CTRL/C's pending 
04 O3F 668 40$: RET 3; Return, 
O3F4 669 
oat e708 -SBTTL CTRL/C AST enable 
3 F4 o76 ENABLE _CTRLC: ; CTRL/C AST enable 
FE 67 $Qlow_sS - g Enatie CTRL/C AST's 
FE = 674 CHAN = CNTRLCHA ; ng the control channel 
F4 675 FUNC = #10$ SE CME 10sm’ cri cA T, = ; function for AST 
F4 8676 P1 = CTRLCAST ; )«6come here on CTRL/C AST's 
7E 7C F4 CLRQ -(SP) 
7E 7¢ F6 CLRQ -(SP) 
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v04-000 CTRL/C AST enable -SEP-1984 715:14 RTPAD.SRCJRSTSRT.MAR; 1 
00 dD F8 PUSHL #0 
97 AF OF FA PUSHAL CTRLCAST 
7 C FD CLRQ -(SP) 
8 D FF PUSHL #0 
7E 4 F C 0401 MOVZWL #10$ FE TROE : S08R. CTRLCAST,=-(SP) 
7E 000° C 406 MOVZWL CNTROCHAN,-(SP) 
DD 0408 PUSHL # 
00000000 ' GF 4 FB 040D CALLS #12,G*SYS$QI10W : 
414 677 QUIT_ON_ERROR ; Quit on any error 
03 5 gs 414 BLBS RO, 30014$ 
FFA 1 0417 Bry auft 
bh 0014$: 
05 O41A 678 RSB 3 Exit. 
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v04=000 Terminal read AST's BreEp i 19be OS:18:44 LATED SReIRGT ORT aR: 1 ve 
41B 680 .SBTTL Terminal read AST's 
418 681 
re ° ¢ -ENABLE LSB 
5 D 41B 684 108: TSTL RO ; Anything to delete? 
27 3 41D 685 BEQL 208 Nope 
O45A'CF 1 A 41F 6 § SUBW Ri, CMDIOSB+2 : Yep, delete from the buffer 
51 03 C4& 0424 rt MULL #3, R1 ; Form the erase count 
427 §=6688 $Q10W_S - ; Write the screen deletion 
427 689 EFN = #1, - ; we really want to wait 
427 690 CHAN = READCHAN, - : use the read channel 
427 691 FUNC = S*#I0$ WRITEVBLK, - ; writing obviously 
427 $36 P1 = @ERASEPROMPT+4, = ; the erase sequence 
Be 7 69 P2 = R1 for this many characters 
7E 7C 0427 CLRQ -(SP) 
7E 7C 0429 CLRQ -(SP) 
51 DD 0428 PUSHL Ri 
O59E "DF DF 042D PUSHAL @ERASEPRIMPT+4 
7E 7C 0431 CLRQ -(SP) 
00 D 0433 PUSHL #0 
7E  QO° C 0435 MOVZWL S*#I0$_WRITEVBLK,-(SP) 
7E 0000'CF C 0438 MOVZWL READCHAN,=(SP) 
01 DD 043D PUSHL #1 
Q0000000'GF OC FB O043F CALLS #12,G*SYS$QI10W 
50 O45A'CF 3C 0446 694 208:  MOVZWL CMDIOSB+2, RO ; Get the updated data size 
7E 50 B80 0448 695 MOVW RO, -(SP) ; _and save it 
51 QOQOOOOFF BF 50 C3 QO44E 696 SUBL3 RO, #CMDBUFLEN-1, R1 ; Form left over buffer size 
50 00000460'8F CO 0456 697 ADOL #CMDBUFFER, RO 3; _and starting buffer address 
045D 698 $Q10W_S - ; Re-ask for a command to decode 
045D 699 EFN = #1, = ; we really want to wait 
045D 700 CHAN = READCHAN, = ; use the read channel 
045D 701 FUNC = <#I0$_READVBLK- ; read function 
0450 702 'TOSM_NOFILTR!IO$M_TRMNOECHO>, - ; w/o filtering 
0450 703 10SB = CMDIOSB, - ; use an 10S 
045D 704 Pi = (RO), - : into this part of the buffer 
045D 705 P2 = R1, - ; with this remaining size 
045D 706 P4 = #CMDMASK 3 use the command terminator mask 
—E 7C 045d CLRQ -(SP) 
00000560'8F DD O045F PUSHL #CMDMASK 
DD 0465 PUSHL #0 
51 DD 0467 PUSHL R11 
60 DF 0469 PUSHAL (RO) 
7E 7C 0468 CLRQ -(SP) 
93 7F 8 D PUSHAQ CMDIOSB 
7E 000 ' 8F C 0471 MOVZWL #10$_READVBLK ! [OSM_NOF ILTR! 1OSM_TRMNOECHO 
7E 0000'CF C 0476 MOVZWL READCHAN,.-(SP) 
0 D 04768 PUSHL @# 
Connon et — #2 47D CALLS #12,G*SYS$CIOW ’ 
45A'CF 43 A 484 707 ADDW (SP)+, CMDIOSB+2 ; Correct the data read size 
4 11 rt 4 re BRB 408 ; and go try, try again... 
48B 710 CTRLP: ; CTRL/P intercept, command decode 
50 588° CF Hs 488 711 MOVZWL CMDPROMPT, RO ; Get length of the command prompt 
51 000° 8F C 049 ar MOVZWL #10$ READPROMPT ! 1OSM_TRMNOECHO, RI ; Set read function 
02 S9A'CF Bi 049 71 CMPW RASEPROMPT, #2 : Doing fancy scope things? 
33 H 49A 714 BLEQU ; Nope 
51 0000°8F A&B 049C 715 BISwW #1OSM_NOFILTR, R1 ; Yep. handle <DEL> ourselves 
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4A) rig 30$: $Q10W_S - ; Ask for a command to gecode 
4A1 71 EFN = #1, = ; we really want to wait 
4Al £18 CHAN = READCHAN, - ; use the read channel 
4A1 71 FUNC = RI, = 3 using the correct function 
4A1 720 10SB = CMDIOSB, - : use an 10S 
4A1 721 Pil = CMOBUFFER, - 3; read into command buffer 
4A1 7 ¢ P2 = #CMDBUFLEN-1. - ; which is this long less terminator 
4A1 7 P4 =f K, = 3 use the command terminator mask 
4A1 724 PS = CMDPROMPT+4, - 3 pointer to command prompt 
04A1 725 P6 = RO ; and its size 
50 DD O4A1 PUSHL RO 
tet DD Bea PUSHL CMDPROMPT+4 
00000560 * 8F DD Q4A PUSHL #CMDMASK 
30 DD O4AD PUSHL # 
OOOOOOFF 8F DD O4AF PUSHL #CMDBUFLEN-1 
0460'CF DF 0485 PUSHAL CMDBUFFER 
7E 7C 0489 CLRQ (SP) 
2's 7F 4BB PUSHAQ CMDIOSB 
7E 1 Hs O4BF MOVZWL R1,-(SP) 
7E Q0000'CF C Rees MOVZWL READCHAN,-(SP) 
01 DD O4C PUSHL @# 
00000000'GF OC FB 04C9 CALLS #12,G*SYS$Q10W 
77 50—so«éE Be08 726 40S: BLBC RO, 90$ ; Quit on any error 
00" 0458°CF 81 04D3 727 CMPW  CMOIOSB, S*#SS$_NORMAL ; Normal completion? 
70 612 0408 728 BNEQ 90$ 3; Nope, quit 
50 O45A'CF 3C O4DA ey, MOVZWL CMDIOSB+2, RO ; Get size of data read 
7F 8F 6(O45C°CF 91 O4DF 730 CMPB CMDIOSB+4, #127 3; Was terminator <DEL>? 
06 12 #O4ES 731 BNEQ 60$ ; Nope 
51 01 0 04E7 U3 MOVL #1, R1 : Yep, set deletion size to one 
FF2E 1 945 ay 50$: BRw 10$ ; Go handle scope <DEL> and CTRL/U... 
15 O45C'CF 91 beep 735 60S: CMPB CMDIOSB+4, #*A/U/-64 3; Was terminator CTRL/U? 
OA 12 OQO4F2 736 BNEQ 70$ : Nope 
51 50 00 O4F& 737 MOVL RO, R1 ; Yep, is the CTRL/U the only thing? 
Fl 12 O4F7 738 BNEQ 5 ; Not the only, go do deletions 
0460°CF 18 90 O4F9 739 MOVB #*A/X/-64, CMDBUFFER ; The only, replace it with a CTRL/X 
51 OS9A'CF 80 gore 740 70$: MOVW ERASEOROMPT, R1 ; Get string size that erases prompt 
02 51 #4=2B1 050 741 CMPW #2 ; Is it the fancy scope erase? 
9° 1B beo8 oe BLEQ 80 ; Nope, use it as is 
51 0588'CF 0 al Q508 74 ADDW RO, CMDPROMPT, R1 : Yep, calculate erase size 
51 O03 A4 Bane 744 MULW 5, R1 ; That *3 is the real erase string 
7. 3: Se Oy 745 808: MOVZWL Ri, R1 ; Extract size into a longword 
0514 746 $Q10W_S - ; Write out prompt erase 
b2ié 747 EFN = #1, - ; we really want to wait 
514 748 CHAN = READCHAN, - ; using the read channel 
0514 749 FUNC = S*#10$ WRITEVBLK, - ; writing obviously 
0514 750 P1 = @ERASEPROMPT+4, - ; pointer to prompt erase 
514 751 P2 = R1 and its size 
7E 7C 0514 CLRQ -(SP) 
7E 7C 0516 CLRQ -(SP) 
51 DD 0518 PUSHL R1 
O59E ‘DF OF SIA PUSHAL @ERASEPROMPT+4 
7 C 051 CLRQ -(SP) 
8 D 05 PUSHL #0 
7E ss MOVZWL S“#I0$_WRITEVBLK,-(SP) 
7E 0000°CF C 5 MOVZWL READCHAN.=(SP) 
01 0D 52A PUSHL a 
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00 00'GF 0c FB 05 CALLS #12,G*SYS$Q10W 
a +t r Fe ; P36 oe cnpgurres a8 : Aodress command buffer 
51 4 $3 F AB : 7 BICW #&< a8>!32, (RO), RI : Do a “Exits upper case convert 
45 BF 1 B1 754 CMPW R1, #*A/EX/ s Is it 
05 13 0543 «755 BEQL «=s«90$ i Yes, guit 
1A 34 91 Th £38 CMPB ee #*A/7/-64 : CTRL/ typed? 
5 12 05468 75 BNEQ 120$ : Nope. go decode real commands 
54A 758 90$: QUIT S“#SS$_NORMAL Quit 
50 00° b0 54A MOVL S*aSSS_NORMAL , rb 
FDE1 1 238 759 BRW QUIT 
51_  0004'CF 0 R228 760 100$: MOVL TERMCHAR+4, R1 ; Point to terminal characteristics 
7E 04 A1 7D 0555 761 MOV  DIBS$B MOEVCLASS(R1) , ~ (SP) ; Copy the information to set 
51 6€ /7E 0559 166 MOVAQ (SP),~R1 3; _and get a pat to it 
04 Al 00100209 8F CA O55C 76 BICL #TTSM_HALFDUP - 5 clear HALF DUPLEX 
0564 764 'TTSM_WRAP - : WRAP 
0564 765 iTTSM- SCAPE - ; ESCAPE 
0564 766 !TTSM_PASSA j and PASSALL modes 
0564 767 DIBSL “DE VDEPEND-D1BS8, DEVCLASS (RI) : oN the saved information 
04 08DB'CF E9 0564 768 BLBC CNTLBP E + tone 110$ ~ a° it NORMAL mode? 
04 a1 01 CB 0569 769 BISL #TT$M_ pi SEAL Nope PASSALL node. set PASSALL mode 
05650 770 DIBSL ~DEVDEPEND= =D1BSB_ DEVCLA 3(R1) :. in the saved information 
056D 771 110$:  S$QI10W_S - ; Force terminal characteristics 
056D ore EFN = #1, = ; we really want to wait 
0560 77 CHAN = READCHAN, - : using the read channel 
0560 77% FUNC = S“#I10$_SETMODE, -'; with mode setting function 
056D 775 10SB = CMDIOSB, - ; use an I0SB 
956D 776 Pi = (R1), - : mew characteristics are here 
056d 777 P2 = #8 3 mew characteristics are this long 
7E 7C 056D CLRQ - (SP) 
7E 7C O56F CLRQ -(SP) 
08 oD 0571 PUSHL #8 
61 DF 0573 PUSHAL (R1) 
7E 7C 0575 LRQ -(SP) 
0458'CF 7F 0577 PUSHAQ CMDIOSB 
E * 3c 0578 MOVZWL S“#10$_SETMODE,-(SP) 
7E 0000' CF 3C beng MOVZWL READCHAN, -(SP) 
DD 058 PUSHL 
00000000 ' GF 0C FB 0585 CALLS #12.G*SYS$0I0W 
5E 08 cO QO58C 778 ADDL #8, SP ; Clear up the stack 
OS8F 779 QUIT_ON _ERROR ; Quit on any error 
03 50 58 tty “BLBS RO, 30015$ 
Fo9c «= 31.—«:0592 uit F 
8232 0015$: é 
50 0458'CF 3¢ 0595 780 it ie CMDIOSB, RO ; Get the 1/0 completion status 
OS9A = 781 QUIT_ON_ERROR ; and quit on any error 
03 50 8 Been RO, 30016$ FAB 
F091 31-0590 BR quit FAB 
340 0016$: FAB 
05 oh re 3 Exit. by 
08DB' CF 01 90 5A1 784 1208: MOVB #180, CNTLBF_ECHOFLG 3; Guess at pp lle aren Dee FAB 
O8D4'CF 51 Bl O5A6 785 CMPW eR, CMDODT ; Was that a | FAB 
C 13 O5aB 786 BEQL §«=s«d308 i Yes, it's 0 oOPA SALL ‘asi FAB 
O8DB* CF 2 90 Q5AD 787 MOVB #1a1, CNTLBF_ECHOFLG 3 Row guess at NORMAL mode FAB 
4F4E 8F 1 81 Be 788 CMPW = sR1,_ #*A/NO/ ; A good quess this time? FAB 
49 12 058 789 BNEQ 186$ ; No, go decode other commands FAB 
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92 OOOO'CF £8 0589 790 130$: BLBS TOPS20, 100$ oOo tfocenct for TOPS=20 | 
0321'CF oO8 BE AA 28 791 BICW #10$M_NOECHO! 10S NoFILTR, "READ MODE j bet NORMAL read mode 
07 ape ae +) 2 136 BLBC CNTLBF_ECHOFLG A, goo gues 
0321'CF 000" 8F A8& CA 79 BISW #10$M ROECHO!108M_ NOFILTR, “y _M DE: "set ODT read mode 
50 O8D7"CF 3C 05D1 794 140$: MOVZWL CNTLBF+1, R ; Else get the message's Length 
506 §=795 $Q10_S - i Send he CONTROL message 
506 £38 CHAN = LINKCHA ; ng the Link channe 
0506 79 FUNC = S*#10$ WRITEVBLK, “= writing obviousl ly 
506 798 Pl = CNILBF, = ; buffer is the CONTROL message 
b208 799 P2 = RO ; which is this Long 
7E 7C 506 CLRQ -(SP) 
43 7C¢ Bede CLRQ -(SP) 
5 DD SDA PUSHL RO 
08D6' CF oF 05DC PUSHAL CNTLBF 
C O5E0 CLRQ -(SP) 
DD OS5E2 PUSHL #0 
7E 0' 3C OSE4 MOVZWL S“*#10$_WRITEVBLK,-(SP) 
7E QO0O'CF 5C O05E7 MOVZWL LINKCHAN,=-(SP) 
DD OSEC PUSHL @# 
00000000'GF OC FB beck CALLS #12,G6*SYS$QI0 
OSF 800 QUIT_NOT_ ABORT ; Quit on non-Link-abort error 
03 50 34 O55 BLBS RO, 30017$ 
FD31 1 OSF8 BRW ABORT_QUIT 
OSFB 30017$: 
05 OSFB 801 150$: RSB 3; Exit. 
OSFC ope 
O4ED 31 Bare sh2 160$: BRW START_LOG ; Go off to start logging 
047C = 31 pare Hi 170$:  BRW END_LOG : Go off to end logging 
4F43 BF 51 B1 D609 807 180$: CMPW R1, #*A/CO/ : Is it CONTINUE? 
F2 13 060 808 BEQL 156$ : Yes, so just continue 
0D 60 91 0609 809 CMPB (RO), #13 3; <CR> typed? 
ED 13 Q60C 810 BEQL 150$ 5 Yes, a ust continue 
4F4C BF 51 B1 pong 811 CMPW R1, #*A/LO/ 3 4s 
E7 13 061 aig BEQL 160$ : ree . "2,9 off to start logging 
4C43 8F 465511061581 CMPW OR, «WAA/CL/ : site 
E313 061A 814 BEQL =s«176$ : 090 9 off to end logging 
5443 8F 51 B81 061C 815 CMPW ORT, ~WAA/CT/ : Is *5e°tr 
3a 13) «(0621S 816 BEQL §«=_-:«190$ : Yep, go aig CTRL/P 
51 60 9A 0623 4 MOVZBL (RO), R1 ; Pick up the first character 
20 «660 z 0626 18 CMPB (RO), #32 : Is it a control character? 
35 F 0629 819 BLSSU 200$ : Yes, send the control character 
51 01 AO 9A 062B 830 MOVZBL 1(RO), R1 3; Pick up next character for CTRL/x 
Se 8F 960916 OF 1 CMPB (RO), #*A/*/ ; Is it CTRL/x?) 
2B «613 «(0633 aS¢ BEQL 200$ : Yep, so Sean the ‘x'’ as a control 
50 O8CC'CF 7D 0635 82 MOVQ CMDHELP, RO ; Get command hele p prompt descriptor 
= oe posA 824 MOVZWL RO, RO ; and fix the help text's Lengt 
63D 5 $Q10W_S - ; Write out some help 
Rt § EFN = #1, - ; we really want to veel 
63D CHAN = READCHAN, - : using the read channel 
63D 828 FUNC = S*#I10$_WRITEVBLK, - ; writing obviously 
63D H 9 Pi = (R1), = ; pointer to help tex 
63D 0 P2 = RO : and its size 
7E 7C 65D CLROQ -(SP) | 
43 7C 063F CLRQ -(SP) 
5 DD 641 PUSHL RO | 
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1 F 64 PUSHAL (R1) 
re ot ets CLRQ -(SP) 
D 064 USHL #0 | 
43 0' C 0649 MOVZWL S“*#I0$_WRITEVBLK,-(SP) 
7E O val Me eet ot a READCHAN, =< 3P) 
00000000 ' GF f FB 0653 CALLS #12,G6*SYS$QI10W 
FE2E 31 o2h 3 BRw CTRLP ; Now go ask again... 
10 9A 065D a 190$: movie #*A/P/-64, RI ; Pick up a CTRL/P to send 
60 51 €0 8F 8B 066 4 200$: BICB3  #*C<31>, R1, (RO) ; Put control character in echo buffer 
51 01 3 re 5 MOVL #1, R1 ; and set echo size to one 
6746 60 3 MOVE (RO), (R7)CR6I : Add control character to message 
56 06 6066C 83 INCL ; and count it 
10 60 91 Begs 38 CMPB (RO), #*A/P/-64 3; Did we add a CIRL/P? 
15 is 671 He BNEQ : Noge 
OF 0321'CF 00" € 673 40 BBS S*#10$V NOP ILTR. READ_MODE , 10$ ; Are we in NORMAL mode? 
6746 OD 90 0679 841 MOVB #13, (R7)CR6 ; Add a <CR> to message 
56 D6 067D He) INCL R6 : and count it 
02 AO OAOD 8F BO O67F 84 MOVW #<10a8>!13, 2(R0) ; Put <CR><LF> in echo buffer 
51 03 DO 0685 844 MOVL #3, R ; and set echo size to three 
32 0321'CF 00° E€0 0688 845 2108: BBS S*#10$V_NOECHO, READ_MODE, 240$ ; Are we echoing? 
07 60 91 O68E 846 CMPB ss (RO), #7 ; Less than <BEL>? 
05 1F 0691 847 BLSSU 220% ; Yes, make into uparrow format 
0b 60 91 0693 848 CMPB (RO), #13 3; <CR> or less? 
0B 1B 0696 849 BLEQ 230$ : Yes, <BEL> through <CR> echo same 
60 80 40 8F 89 0698 850 220$: BISB #64, (RO)+, (RO) ; Make the control a graphic 
70 «=655E BF «690 =6(069D-~— B51 MOVB #*A/*/, =(RO) ; and add an uparrow prefix 
51 D6 Q6A1 o2¢ INCL R1 ; Add one to the echo count 
O6A 853 230$: $Q10W_S - ; Write out the echo 
06A 854 EFN = #1, - ; we really want to wait 
06A3 855 CHAN = READCHAN, - ; using the read channel 
06A3 56 FUNC = S*#I0$_WRITEVBLK, - ; writing obviously 
Beas 57 Pi = (RO), - ; the echo 
6A 58 P2 = R1 3; with its size 
7E 7C O6A CLRQ -(SP) 
7E 7C 06A5 CLRQ -(SP) 
51 DD 06A7 PUSHL R1 
60 F Q6A9 PUSHAL (RO) 
7E C Q6AB CL -(SP) 
00 ge Q6AD PUSHL #0 
7E 00° C O6AF MOVZWL S“#I0$_WRITEVBLK,-(SP) 
7E 0000' CF 3C 068 MOVZWL READCHAN,-(SP) 
01 DD 068 PUSHL #1 
00000000'GF OC Fe 689 CALLS #12,G*SYS$Q10W 
05 06C0 59 240$: RSB s Exit. 
06C1 60 
06C1 61 .DISABLE LSB 
por) $6 
6C1 65 .ENABLE LSB 
06C1 64 
06C1 65 TERREADAST: ; Terminal read done AST 
OFFC C1 66 ~WORD “M<R2,R3,R4,R5,R6,R7,RB,RS.R10,R11> 
48 O321'CF 00° €1 oc 68 BBC S*#1OSV_NOFILTR, READ MODE, 10$ ; Are we in ODT read mode? 
00010000'8F 0212°CF D1 06C9 +4 CMPL {5elOse. #<1016>!SS$_RORMAL ; Normal completion of 1 char? 
3D 12 06D2 0 BNEQ 10$ ; Nope, just go process it 


rminal Protocol 


10$: 


20$: 


30$: 


40$: 
50$: 


RSTSRT RSTS/E Remote Te 
v04-000 Terminal read AST's 
ores DS 06D4 71 
7 12 0608 a 
6DA 7 
6DA 74 
6DA 75 
6DA 26 
6DA 7 
6DA 78 
6DA 79 
6DA 80 
Q6DA 81 
6DA 82 
7E 7C Q6DA 
00000323'8F DD 06D 
00 OD O6E 
QOOOOOFD BF ODD O06E4 
O21F CF DF O6EA 
7E 7C OQ6EE 
0212°CF 7F O6FO 
7E Q000'SF 3C O6F4 
7E QOOO'CF 3C O6F9 
01 DD O6FE 
00000000'GF OC FB 0700 
0707 883 
03 50 gS 0707 
FC24 1 O70A 
070D 
0214'CF B6 O70D 884 
QO QO212°CF 3C O711 #885 
0000'8F 50 B61 0716 886 
09 is 0718 887 
0216°CF 00010019 8F DO O071D 888 
000'S8F 50 Bi 66 889 
14 12 072B 890 
O212'°CF 7C 760 33 
05 O0002'CF D1 0731 38 
09 19 #0736 89 
0216'CF 00010010 8F 0 738 894 
56 0214'CF C 0741 895 
57 O21E'CF 9E 0746 538 
50 O216'CF 9A 0748 89 
9¢ 13 P38 898 
6746 0 90 075 344 
10 50 91 228 89 
05 15 75 901 
FDgD 3 758 an§ 
® WW Ors 90 
76 One 
6E 0321'CF 00° EO 076 905 
6A 50 gf 3 766 an9 
14 0 1 76A 3 
65 13 0760 908 
19 28 91 er 909 
6 3 772 ~=6910 
51 4 C 0774 911 
O31D'CF OA24 BF +4 777 318 
18 50 1 O77E 91 


CALLS 
QUIT_ON_ERROR 
BLBS 


INCW 
MOVZUL TERIOSB 
CMP RO, #SS$_ 
BNEO 2 
MOVL #<lal6>! 
CMPW = soRO, —#SS$_ 
BNEQ 30 
CLRQ TERIOSB 
CMPL CTRLC_CN 
BLSs 

#<1a16>! 


MOV 
MOVZWL TERIOSB+2, 


MOVAB  TERBUFFE 

MOVZBL TERIOSB+ 

BEQL  40$ 

MOVB RO, (R7) 

CMPB 4 #*A/ 
50$ 


BNEQ 
BSBW CTRLP 
BRB 100$ 

BBS soa logy 
BBS 

CMPB + Rk, 
BEQL 

CMPB sO, #*A/ 
BEQ 90$ 
MOVZUL # 

MOVW fc {0aB>' 
CMPB RO. oe #27 


0018$: 
TERIOSB+ eo 
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4 ; Did we get any terminator? 
; Yep, also just go proces 


s it 
; Else get the remainin data (if any) 


- : we reaehy want to wa 
EADCH AN a ne read js Ad obviously 
#10 neApveLx  108n TRM 
! TOSM_NOECHO! IOSM_ROF ILT 
'1OSM TIMED a using the fosnre ahead mode 
ERIOSE, 3; (re-)use the 
BUFFER*1, 3; 6ouse ee ae 0° terminal buffer 
RBUFLEN=1- 1, ; which is this long w/o terminator 
wit) 3 use the terminator mask 
#TERMASK 
#0 


cree 
TERBUFFER+1 


TERIOSB 
#10$ READVELK; 10SM_ TRMNOE CHO 
READCHAN, -(SP) 


#12,6*SYSSa10u 
ot 30018$ 
QUIT 


! 1O$M_NOE CHO 


; Quit on any error 


: Count the data character of Ist read 
Get the 1/0 conpietien. status 


CONTROL Y : —— under CTRL/Y 
<*A/Y/=64>, TERIOSBSA Yep, set CTRL/Y terminator 
CONTROLC : Completed under CTRL/C? 
; Nope 
: Yep, force ae tg read at all 
T, #5 : ioe many pending CTRL/C's? 


yet 

<*A/P/-64>, TERIOSBe4 % Yep, set CTRL/P terminator 
RE 3; Get amount of data read 

Address the read data 

Get the terminator if any 


There was none. 


R, 
4, Ro 


CR6) There is one, store it in the buffer 
P/=64 isi it CTRL/P? 
Handle that as an intercept 
: Continue 
NOECHO, READ -MODE, 90$ ; Are we echoin ng? 
“90$ Don't echo c} controls, 10/0, 15/15 
T/-64 4 it CTRL/T? 
is? that's never echoed 
¥/=64 sft CTRL/Y? 


echo size to one initiall 
and load echo buffer w/ $<LF> 


Set 
: Is it <ESC>? 


: a that's never echoed 
“A/$/, ECHOBUFFER 
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oe 7 38 BEQL aye ; Yes, that echoes as a dollar sign 
O31D'CF 8 9 7 15 MOVB #13, FgnoeurreR ; Now load echo buffer w/ <CR><LF 
OA 9 7 218 CMPB R i ; Is it <LF>? 
8 1 788 S91 BEQL ; Yes, that echoes as <CR><LF> 
031D'CF 9 7 218 MOVB RO, ECHOBUFFER ; Now load echo buffer w/ terminator 
07 9 91 07 91 CMPB RO, # ; Less than <BEL>? 
1f 079 920 BLSSU 6 3; Yes, make into uperrow format 
0D ! 91 79 921 CMPB RO, #13 3; <CR> or less? 
1 13 O79A 9 ; BEQL 70$ 3; It's <CR>, go echo as <CR><LF> 
| ae. fads 9 BLSSU 80$ ; Less that <CR>, echo as itself 
0310'CF 43 8F 90 O79E 924 60S: MOVB #*A/*/, ECHOBUFFER ; Put uparrow prefix into echo buffer 
O31E'CR §=650 ef 89 7A4 «925 BISB3 #64, RO, ECHOBUFFER+1 : then make the control a graphic 
1A 9 1 7AB 926 CMPB RO, #*A/7/-64 3; A CTRL/Z? 
0 is 7A 927 BNEQ 70$ 3; Nope 
51 02 CO 0O7B 928 ADDL #2, R1 3; Yep, echo as “Z<CR><LF> 
51 06 078 929 70$: INCL R1 ; Add one to the echo count 
0785 930 80$: $Q10_S - ; Queue up the echo 
0785 931 CHAN = WRITECHAN, - 3; on the write channel 
0785 93¢ FUNC = S*#10$ WRITEVBLK, - ; writing obviously 
0785 93 Pl = ECHOBUFFER, - : from the echo buffer 
0785 934 P2 = Ri ; with this size 
7E 7C 0785 CLRQ -(SP) 
7E 7C 0787 CLRQ - (SP) 
51 07B9 SHL R1 
031D'CF OF 5oBe PUSHAL ECHOBUFFER 
7E C 7BF LRQ -(SP) 
00 DD 07C1 PUSHL #0 
7E 00° ¢ 07¢3 MOVZWL S“*#I0$_WRITEVBLK,-(SP) 
7E 0000' CF C 07C6 MOVZWL WRITECRAN,-(SP) 
00 odd O7CB PUSHL #0 
00000000 ' GF 0c FB As CALLS #12,G6*SYS$Q10 
56 06 O07D4 935 90$: INCL R ; Count the terminator in data count 
56 05 0706 936 100$: TSTL ; Any data at all? 
55 13 0708 937 BEQL 130$ 3; Nope 
0B 0000'CF 3 7DA 8 =938 BLBS TOPS20, 110$ 3; Yep, TOPS-20 mode? 
77 56 90 O7DF 939 MOVB —R6, _=(R7) : Set length of data 
a: 940 ASSUME TERBUFLEN LE 255 
56 04 CO O7E 941 ADDL ° ; Calculate Length of message 
77) ~=—56~—Ss«BD. Be ae8 MOVW RG. -(R7) 3; _and set it 
57 D7 O7EB 94 DECL ; Back up to the TYPE byte 
O7EA 944 110$: $Q10_S - ; Queue up a Link write 
O7EA 945 CHAN = LINKCHAN, - ; using the Link channel 
7EA 946 FUNC = S$*#10$ WRITEVBLK, - ; writing obviously 
7EA 94 OSB = TERIOSE. - 3 use an 10 
7EA 948 ASTADR = 120%, - 3: come here upon completion 
7EA 949 ASTPRM = 4CAPS, - : forwarding the output wait flag 
7EA 950 Pi = (R7), - 3: send this Seascape buffer 
7EA 951 P2 = R6 ; which is this [ong 
7E 7¢ 7EA CLRQ (SP) 
7E 7C¢ 7EC CLRQ -(SP) 
26 DD 7E PUSHL R6 
6 DF 7F PUSHAL (R7) 
04 AC DD O7F PUSHL 4(AP) 
BIS AcE OF 7F PUSHAL 120$ 
ae F 7F PUSHAQ TERIOSB 
f 0° C 7F MOVZWL S*#I0$_WRITEVBLK,-(SP) 
7E 0000'CF C 80 MOVZWL LINKCHAN,=(SP) 
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” 
Pan 
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v04-000 Terminal read AST's etsy 8g: 215: ‘#3 ERIPAD SRCIR RSTSRT.MAR;1 . | 
0 oD PUSHL #0 $ 
00000000 ' GF 8? ce f eutt wot abont #12,G6*°SYS$Q10 aoe ieteetanl 3 
a ; Quit on non-Link-abort error : 
03 5 58 ; BLBS RO, 30019$ 3 
FB} 1 i ABORT_QUIT ; 
04 13 937 RET ; Return pending Link write complete. ; 
1 955 1208: & write done AST ; 
OFFC + 936 WORD “M<R2,R3, Rs, R5,R6,R7,R8, ho RiO.n : 
50 0212°CF 3C 0817 95 MOVZWL TERIO OSB, Get the 1/0 completion status ; 
1¢ 6958 QUIT_NOT_A t Quit on non-Link-abort error : 
03 50 58 1C RO, 30020$ 3 
FBOA 31 re ABORT _QUIT ; 
09 04 AC 9 959 BLBC 4(AP), 1308 ; Should we wait for output done? 3 
OOO9'CF 01 5 5 6 960 MOVB #1, OUTPUT WAIT ; Yep, set output wait flag 3 
046 11 08 8 361 BRB 146$ : and wait for it... ; 
082D 963 OUTPUTWAITAST: Ousgut ye wait done AST 3 
OFFC 08 D 964 . WORD ACR? jf R4,RS.R6,R7-RB-RI_RI : 
2A 10 O82F 965 130$: BSBB TER : Bo a 4 (re-) read 3 
04 0831 208 140$: RET ; Return. 3 
083 96 3 
083 968 .DISABLE LSB 3 
083 969 3 
bas any ENABLE LSB : 
OOOO'CF B85 bB3 444 10$: TSTW FIRSTCMD ; pais tet command, have we used it? g 
1A 13 base 97 BEQL 20$ *s been used, go check indirect : 
O2Z1E°CF 0004 ' DF 0000' CF 28 88 | 974 MOVC FIRSTCMD, @FIRSTCMD+4, rérabr eR’ Move in command : 
CF B4 084 975 CLR FIR en say it's been used up : 
0214°CF 53 QO000021E' Bt c3 pase 976 SUBL3 #TERBUFFER, R3, TERIOSB+? ; tret eot bee the command's size 3 
26=—Coid11 0882 44 BRB 30$ ; and go use it : 
0000'CF 0000' CF % obs 38 20$: MCOMB {ROFLAG. INDFLAG 3; Flip the flop P 
75 13 0859 980 BEQL 0$ 3: No indirect, "etear up and continue 3 
tt 981 TERREAD: ; Queue up a terminal re 3 
QOOO'CF 95 58 oa8 TSTB [NOFLAS : Initial command or saatvest file? 3 
7B O13 g2f 98 BEQL 0$ : Neither 3 
CF 19 61 984 BLSS 10$ ; Initial command ; 
bee 985 $GET - ; Get next record 3 
6 986 ee 3; from the Secirect file $ 
OOOO'CF OF 6 PUSHAL Hin 3 
00000000 * GF 1 FB 6 CALLS WnPT -G*SYSSGET 3 
0 =€9 of 987 BLBC 5 check ous any error 3 
O214°CF O022°CF 8B 988 MOVW CY SINRAB+RABSY RSZ TERIOSBS2°" Set the data character size $ 
03 0321'CF 00° 5 78 989 30$: BBS “#10$V_NOFILTR, READ -MODE,, £08 ; Already in ODT mode? : 
A 7E 990 BSBwW 00$ ; Nope, go shift to ODT mode ‘ 
AT 8 1 991 40S: MOV = S°#SS$_NORMAL, TERIOSB ; Set completion status as normal ; 
0216'CF 0010000 BF OD 6 99 MOVL #<1a165!13, TERIOSB+4 Set length 1 terminator of <CR> 3 
F 99 S$DCLAST_S - 3; Fake an AST 3 
F 994 “ASTADR = [ERREABAST , - ; for terminal read done ; 
F 995 ASTPRA = # ; saying wait for output to continue | : 
0 oD F PUSHL #0 é 
1 DD 1 PUSHL #1 | : 
FE2A CF OF 93 PUSHAL TERREADAST | : 


RSTSRT RSTS/E Remote Terginat Protocol AX/VMS Macro V04-00 


SrSEp=19be 08:15:44 ong 


v04-000 Terminal read AST's RTPAD.SRCJRSTSRT.MAR; 1 ) 
00000000'°GF 03 Fe 97 CALLS #3,G*SYSSDCLAST : 
4 938 RSB ; Exit. : 
00000000'8F 50 O01 oF 44 50$: CMPL RO, #RMS$_EOF ; Are we just done with the indirect? . 
iD (1 Ag 99 BEQL § ; Simple EOF, we're done ; 
geo’ 50 D AB 1000 MOVL RO, RMSMSGVEC+4 ; Load status code into message vector ; 
0944'CF OOC'CF OD AD 1001 MOVL SYSINRAB+RABSL_STV, RMSMSGVEC+8 ; and Load the STV value ; 
B41 ¢ SPUTMSG_S - ; Put out a message : 
4 1 MSGVEC = RMSMSGVEC ; to announce the RMS error ; 
00 OD 4 PUSHL # ; 
00 odd 0 6 PUSHL # 5 
00 DD 8 PUSHL # ; 
O93C'CF DF A PUSHAL RMSMSGVEC : 
00000000 ' GF 04 FB 8 CALLS #4,G*SYSSPUTMSG ; 
8C5 1004 60$: $CLOSE - 3; Close out 3 
+5 1005 FAB = SYSINFAB 3 the indirect file 3 
0000'CF OF C PUSHAL SY : 
00000000'GF O01 FB +94 CALLS #$$.TMP1,G*SYSSCLOSE 3 
QOOO'CF 94 DO 1006 70$ CLRB IN : a nothing special is active ; 
02 0321°CF 00° £1 08D4 100 BBC S*#I0SV_NOFILTR, READ_MODE, 80$ ; Already im NORMAL mode? ; 
A 10 Q8DA 1008 BSBB 110$ : Nope, go shift (back) to NORMAL mode 5 
51 OOFE 8F 3C O8DC 1399 80$: MOVZWL #TERBUFLEN-1, R1 : Get buffer size w/o a terminator : 
03 0321'CF 00° + O8E1 1010 BC S*#10$V_NOFILTR, READ_MODE, 90$ ; ALL set unless ODT mode : 
1 Q1 C O8E7 1011 MOVZWL #1, R1 ; Set buffer size to one of ODT mode 3 
33 OOOO'CF £8 OQOB8EA Isi¢ 90$: LBS WAKEFLAG, 95$ 3; Don't queue another read if quitting 3 
O8EF 101 $Q10_S$ ; Queue up a terminal read ; 
OB8EF 1014 CHAN = READCHAN, - ; using the read channel obviously : 
tH 1015 FUNC = READ MODE, - ; using the correct read mode 3 
BEF 1016 10SB = TERIOS6, - ; use an I0SB 3 
O8EF 1017 ASTADR = TERREADAST, - ; come here upon completion : 
O8EF 18 ASTPRM = #0, - $ saying no wait for output : 
O8EF 101 Pi = TERBUFFER, - ; read into this buffer F 
O8EF 1330 P2 = R1, - ; which is this long this time 3 
QO8EF 1021 P4 = #TERMASK 3; use the terminator mask ; 
7E 7C O8EF CLRQ -(SP) 5 
00000423' 8F OD 8F1 PUSHL #TERMASK : 
00 OD ore PUSHL 4&0 : 
51 OD F9 PUSHL R11 : 
O21E'CF OF 8FB PUSHAL TERBUFFER : 
00 DD OB8FF USH & 3 
FOBC CF F 901 PUSHAL TERREADAST ; 
Ooo fece F 905 PUSHAQ TERIOSB : 
E 0321'°CF C 0909 MOVZWL READ_MODE,-(SP) ; 
7E seed C 308 MOVZWL READCHAN,=(SP) : 
0 od 091 PUSHL : 
00000000 ' GF 0c FB Q915 CALLS #12,G6*SYS$QI10 : 
91C 1022 QUIT_ON_ERROR ; Quit on any error : 
03 50 8 O91C BLBS RO, 30021$ 3 
FAOF 31 «O91F Bry quit F 
9 0021$: 3 
05 , 1p ; 95$: RSB ; Exit. : 
ag OOO Se E 9 1025 100$: BLBS TOPS20, 1308 ; Mode always correct if TOPS-20 : 
0321'CF OO0O'S8F A 9 1 § BISW 2 SORA BOG ENO: 108K NOFILTR, READ_MODE ; Set ODT read mode 3 
08DB' CF "1 9 92F 1 MOVB #1200, CNTLBF_ECHOFLG ; _and Tndicate ODT in CONTROL msg 3 
Sire , : : 3 BRB 1208 ; Go send the message : 


——— 
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v04-000 Terminal read AST's $7 SE obec 86:13:92 RTPAD.SRCJRSTSRT.MAR; 1 . (8) 
36 OOOO'CF E8 0936 1 110$: BLBS TOPS20, 130$ ; Mode always correct if TOPS-20 
0321'CF $000" Se AA 33 1 ? BICW HOSA NOE CHO! 108M NOFILTR, READ_MODE ; Set NORMAL read mode 
aaa 02 30 942 1 § MOVB #1a1, CNTLBF_ECHOFLG ; and Tndicate NORMAL in CONTROL msg 
50 O8D7"CF 3C 0947 1033 1208: MOVZWL CNTLBF41, RO : Get the message's Length 
94C 1034 $Q10_S - ; Send the CONTROL message 
94C 1035 CHAN = LINKCHAN, - 3; using the Link channe 
94C 1 : FUNC = S*#10$_WRITEVBLK, = ; writing obvious 
94¢ 18 Pi = CNTILBF, = ; buffer is the CONTROL message 
94C 1038 P2 = RO ; which is this long 
7E 7C Q94C CLRQ -(SP) 
ff 7C 094 CLRQ -(SP) 
5 DD 3 PUSHL RO 
oes" pF 9 PUSHAL CNTLBF 
f C 228 CLRQ =(SP) 
0 D 095 PUSHL #0 
43 00° C O95A MOVZWL S“#IO$_WRITEVBLK,-(SP) 
7E 0000'CF C 0950 MOVZWL LINKCHAN,=(SP) 
00 dD 0962 PUSHL @# 
00000000'GF OC FB 0964 CALLS. #12,G*SYS$QI0 
Saee 1039 QUIT_NOT_ABORT ; Quit on non-Link-abort error 
03 50 58 968 BLBS RO, 30022$ 
F988 1 84 BRO ABORT _QUIT 
0971 0022$: 
05 0971 130$: RSB 3 Exit. 
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Termi P 16-SEP-1984 02:14:23 VAX/VMS Macro V04-00 Page 30 
! 13800 a Fa woes “ehcp gE 1 obs 86:18:92 RTPAD.SRCJRSTSRT.MAR; 1 . (9) 
44 ] rf: -SBTTL Link read AST's 
72 104 INKREADAST: ;_Link read done AST 
OFFC $f ! ‘3 “ «WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11> 
50 OOOA'CF 3€ 0974 1 rk MOVZWL LINKIOSB, RO ; Get the 1/0 completion status 
3 50 8 443 1050 QUIT_NOT 1m RO, 300238 3 Quit on non-Llink-abort error 
(Poa 54 are Bry, ABORT_QUIT 
56 OOOC'CF 3 b3¢ 1051 MOVZWL INKIOSB+2, R6 ; Get size of the read message 
57 i$ oBe 1988 BEQL $ 3; No size?? 
57 OO12'CF 9 986 1 MOVAB bAWEBYFFER R7 ; Get a pointer to read message 
58 0000°CF 5 9 1928 BLBS TOPS2 o$ ; Always just data if TOPS-20 
05 67 51 i 132? ier iB0). #5 ; pete message? 
02 ¢ 91 099 1987 CMPB (R7), #2 ; Control message? 
43 12 0998 1058 BNEQ 50$ ; Nope, other, punt on it 
C6 0O1A7 BI 0998 1059 CMPW 1(R7), #6 : Yep, is size at least 6? 
30 1F O99E 1060 BLSSU  50$ ; Too small, alse punt on it 
37 0321'°CF 00° EO O9A0 1061 BBS TH ead NOFILTR, READ_MODE, 50$ ; Also punt if in ODT mode 
01 05 A7 51 9A6 106 CMPB (R7), iad 3; Which way is echo changing? 
< it 3 O9ae 1988 Had SSF 108V NOECHO, READ move ait oe echor ont Hy already on? 
ee 3 F 0306 1065 BRB eee : ~ "3; "Not already on, correct the read 
23 O321'CF 00° €E2 bone 1069 10$: BBSS S“*#IO0SV_NOECHO, READ_MODE, 50$ ; Echo OFF; is it already off? 
9BA 1068 20S: SCANCEL_S - ; Cancel the current terminal read 
9BA 1069 “CHAN = READCHAN 3 on the read channel 
S500'Gr Oi FB OSB CALLS. BL Gest SSCANCEL 
rtsep aca $3 a $9r6 1970 BRB 50$ d ; Now queue up another Link read 
Me 1978 30$: ; Terminal write completed AST 
OF FC $96 107 .WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> 
OD OON9'CF 00 E5 Q9CA 1074 40$: BBCC #0, CUTPUT_WAIT, §0$ : Say terminal output is done 
9D 1978 $OCL ° ; Something wetting. fake an AST 
, $00 1076 “ASTAOR z GYIRUTUAITAST : for terminal output waiter 
ABT Be 8 RUSH QUTEUTWALTAS 
pene 6F 0 9DD or? 50$: BSBB LINKREAD * ; Queue up another Link read 
04 HH ! A RET ; Return. 
: #4, a7 ; Skip pointer over the header 
3 8 £8 3} i Bt “ire SUB one R6 3 (and, don't count it in the size 
3 n ? 
oo02"t? be 368 i : 70$: a3 TRLC_CNT 3 Pending CTRL/C's? 
CF £8 ore i é BLBS EIGHT BIT, 75$ | gti erate 
56 034B'CF 00°”” _ 56 cE ers 1086 MOVTC Re” (R7), #0, ASCII_TRIM, R6, (R7) ; Nope, form 7-bit ASCII 
75$: SBW DO_LOG : Go do logging if logging is active 
22 0006'CF " eS sre j oy Bact #0, CIRLC_SENT, 80$ 7 A recent CIR IC sent’. 
67 56 8009" CF 83 age ! ; SS ge H § CTRLC_MATCH, R6, (R75 bat "Y,,to sane the '*C’’ in text 
56 33 7D A : 1091 MOVQ 2, R6 ; Found, copy desc just beyond it 


16-SEP-1984 14:23 VAX/VMS Macro V04-00 Page 31 
ety 7 8g: 18:93 YRTPAD SRe RSTSRT.MAR;1 . (9) 
; What's the remaining Length? 
; It's zero, nothing remains, skip it 
3; It's one, just go do that character 
#<1088>!13 : as two or greater, is it <CR><LF>? 
3; Nope 
3; Yep, skip pointer over the <CR><LF> 
3 _and don't count it 
3; Skip it if nothing now left 
; Queue up a terminal write 
WRITECHAN, - 3 on the write channel 
S*#I0S_WRITEVBLK, = ; writing obviously 
= 30$, - 3; come pere upon completion 
R7), - 3 use this for the data 
6 ; which is this long 
-(SP) 
-(SP) 
R6 
(R7) 
#0 
30$ 
#0 
S*#10$_WRITEVBLK,-(SP) 
WRITECRAN,=(SP) 
#12,G°SYS$QI10 
; Quit on any error 
RO, 30024$ 
auit 
; Return pending write completion. 
3; Queue up a Link read 
; Queue up a Link read 
LINKCHAN, =- 3; using the Link channel obviously 
S*#10$_READVBLK, - ; pestiog obviously 
LINKIO - ; use an I0SB 
= LINKREADAST, - 3; come here upon completion 
INKBUFFER, - : read into this buffer 
LINKBUFLEN ; which is this long 
-(SP) 
-(SP) 
#LINKBUFLEN 
LINKBUFFER 
LINKREADAST 


RSTSRT asts/e Remote Terminal Protocol 
v04-000 Link read AST's 
01 56 D1 OAT 1 3 CMPL R6, #1 
B4 1F OA14 109 BLSSU 40$ 
ae aie | 94 BEQL 80$ 
OAOD 8F 67 Bi OAT 95 CMPW (R7), 
8 1 AiD 1 38 BNEQ 80$ 
27 C AIF 109 ADDL #2, R7 
6 0 C A 1 38 SUBL #2, R6 
AS 13 OA25 109 BEQL «40 
A 1100 80$: $Q10_S - 
= 
Ae? 1101 CHAN 
Ae? 11 ¢ FUNC = 
A27 118 ASTADR 
Ae? 1104 Pi = ( 
Ae? 1105 P2 =R 
7E 7C OA27 CLRG 
7E 7C A29 CLRQ 
56 DD OA2B PUSHL 
67 OF pA D PUSHAL 
00 OD A2F PUSHL 
94 AF DF 0A31 PUSHAL 
00 D OA34 PUSHL 
7E 00° C OA36 MOVZWL 
7E 0000'CF C OA39 MOVZWL 
00 DD pare PUSHL 
00000000'GF OC FB OA4 CALLS 
OAS7 1106 QUIT_ON_ERROR 
03 50 8 0A47 BLBS 
FBES 1 OA4A pre 
OA4D 0024$: 
04 OA4D 1107 
OASE 1108 
OASE 1109 LINKREAD: 
OASE 1110 $Q10_S - 
OASE 1111 CHAN = 
OAGE 1316 FUNC = 
OASE 111 I0SB = 
OASE 1114 ASTADR 
AGE 1115 Pl=tL 
ASE 1116 P2 = 
7E 7C OA4 CLRQ 
7E 7C¢ AS CLRQ 
00000200 8F ODD OAS PUSH 
0012°CF OF AS PUSHAL 
D OASC PUSHL 
FFIO FF F A PUSHAL 
OOA* CF F Ab PUSHAQ 
3 00° $f Ag8 MOVZWL 
7E 0000'CF C OA6 MOVZWL 
30 DD OA PUSHL 
00000000 ' GF C FB OA CALLS 
etch * wl 


Bo02ss: 


LINKIOSB 
$*#10$_READVBLK,=-(SP) 
LINKCHAN,=(SP) 


# 
#12,G*SYS$Q10 


RO, 300258 
ABORT_QUIT 


3 Quit on non-Link-abort error 


3 Exit. 


er —_—--—- —_—_-- - - 


RSTSRT 
v04-000 


083¢ 
00000000 * GF . 
OBDS'CF  O0B48'CF 


OBAE'CF 0B 
08 


OBB4 ' CF 


0B 
00000000 ' GF 

OBEO'CF OBE 

OBDS'CF 089 
OBD4 ' CF 


0800 
00000000 ' GF 


60 O45A'CF 


00000000° oF 


088C 
00000000 ' GF 


04 
: 
3C "CF 


se 50 


CF 
01 


tb a 
tt Sb tb 


MOO ONOULS WO 


od 
a a 
—OOONOULS Ww 


Seb HS Ht 


a a a 
a a et ed ad dd 
PAA & 
SOWONAOUSWI—O”O 


-SBTTL Logging file handling 
ENABLE LSB 
END_LOG: 3; Close out logging file if any 
TSTB ERESINE FLAS 3 Me logging active? 
BEQL 403 : 
CLRB LOGGING _FLAG 3 ves, put no 
tay BOS Le Sr ESE 5 “why ng tere’ * the buffer? 
BSBB_  —- DUMP_LOG ; ieee go dump Last record in lo 
S$: $CLOSE - t Close . 
FAB = LOSSINS. FAB ; the logging file 
PUSHAL LOGGING _F 
CALLS #$$.TMPT, G°SYSSCLOSE 
BLBS exit if suc cce 
10$: MOVL LOGGING FAB+FABSL_STV, Liceing” -MSGVEC+8 ; Set RMS FAB value 
BRB 0$ 3: and go announce the error 
DUMP_LOG: the nsie;g record buffer 
MOV LOGGING_BUFDESC, LOGGING’ RABS ABSW_RS et record Length 
MOVAB LOGGING BUFFER, LOGGING_RAB+RABSL_RBF ; Set buffer address 
$PUT - : Put a record 
RAB = LOGGING_RAB ; to the logging file 
PUSHAL LOGGIN NG 
CALLS #$$.TMPT EO > aed 
CLRL  LOGGING_6UF out the 
spy LOGGING. ~BUFFERSI, LOGGING BuFbestst "* oobi descriptor 
gps: MOVL LOésING RAB+RABSL_STV, LOGGING, MSGVEC#B “Set RMS RAB value 
O$: MOVL » LOGGING_MSGVET+4 Set the error status in vector 
SPUTMSG_ s ; SPUTMSG the error into real log file 


40$: 
START_LO 


50$: 


RSTS/E Remote Terminal Protocol 
Logging file handling 


RSB 
G: 
LOCC 


B 
SCREATE - 
PUSHAL 
CALLS 
BLBC 
SCONNECT 


PUSHAL 
CALLS 


7 ae oR 86:13:43 AX/VMS Macro V04-00 Page 32 


RTPAD.SRCJR STSRT. MAR; 1 


“Bsevec = P  ptconane nina ; using the built-up message vector 
PUSHL #0 


#0 
PUSHAL LOGGING _MSGVEC 
CALLS #4,G*SYSSPUTMSG Exit 
3 Exit. 


Start up a logging 1 
#32, CMDIOSB+2, (RO) Isolate any speci Rey file name 
50$ Nothing there... 


i.’ and skip the pointer over it 
F 


4 Else don't count the space 
RO, LOGGING FAB+FABSB_FN Set A. pile name's size 
(R1), LOGGING, FAB+FABSL_ wh send the tile name's eddress 
END_LOG nye “close: any old logging file 
: Try a crea 
FAB = LOGGING. FAB 3 the logging file 
LOGGING FAB 
#$$_ TMPT, G*SYSSCREATE 
0, 10$ ; Forget te Logging if any error... 
: Else co 
OSSING. RAB ;. @ the loasten file 


AB =l 
LOGGING R 
#$$. TMPT,G*SYSSCONNECT 


(10) 


| H4 
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V04-000 Logging file handling Breer 188s BSiieiae PANSY Macro VOt-00 ave 3 


e 3 
gf 3 
AD 50 9 OBIE 1164 BLBC RO, 20$ : Forget logging if any error... 
osz'cr oh 58 Beat 1168 MOVE #1" LOGGING FLAG i all set, Indicate logging active 
BDCICE D4 OBg6 1166 CLRL_ LOGGING_BUFDESC i Set up an empty 
OBEO' CF BF ‘CF BeA 116 MOVAB poe ea ncn yeren=t. LOGGING_BUFDE C+4 ; put ier descriptor 
36 0000'CF 3 B31 1168 BLBS TOPS20, 60$ ; ALL set if TOPS- 
08DB' CF 1 B36 139% MOVB #ia0, €NTLBF_ECHOFLG ; Set ODT mode on CONTROL message 
ones" B00 F A8& 0B 1170 BISW #10$h NOECHOTIOSM_NOFILTR, READ_MODE ; Set ODT read mode 
0 D7'CF 3C 0B42 1171 MOVZWL CNTLBF+1, RO ; Get the message's length 
B4 11% $Q10_S - 3; Send the CONTROL pessbee 
0B47 117 CHAN = LINKCHAN, = ; using the Link channe 
0B47 1174 FUNC = S“#I0$_WRITEVBLK, = ; writing obviously 
B47 1175 Pl = CNTLBF, = ; buffer is the CONTROL message 
B47 1176 P2 = RO ; which is this long 
7E 7C 0B47 CLRQ (SP) : 
7E 7C 0849 CLRQ (SP) 
50 OD 0B48 PUSHL RO 
08D6' CF F OB4D PUSHAL CNTLBF 
43 C $83] CLRQ =(SP) 
0 D 53 PUSHL #0 
7E QO" C 0B55 MOVZWL S“#I0$_WRITEVBLK,-(SP) 
7E 0000'CF C 0B58 MOVZWL LINKCHAN,=(SP) 
00 OD OB5D PUSHL # 
00000000'GF OC FB OBSF CALLS) #12,G*SYS$QI0 
9866 1177 QUIT_NOT_ABORT ; Quit on non-Link-abort erro- 
03_50 8 0B66 BLBS RO, 30026$ 
F7CO }=631—«(0B69  BRW ABORT_QUIT 
OB6C 00268: 
05 OB6C 1178 60S: RSB : Exit. 
OB6D 1179 
OB6D 1180 .DISABLE LSB 
OB6D 1181 
0B60 1186 DO_LOG: ; Do logging if Logging is active 
OB32'CF 95 OB6D 18 TSTB LOGGING_FLAG : Is logging active? 
4D 13 perk 1184 BEQL 0$ ; No 
54 56 7D 73. «1185 va R6, R4 : Yes, copy the data descriptor 
52 83 9A 0876 1186 10$:  MOvZBL (R5)+, R2 ; Get the next character 
OA : 91 0B79 1187 CMPBeR2, #10 : Is it a <LF>? 
13 (1 7C 1188 BNEQ $ ; Nope 
OBDC'CF 8 3 1189 TSTW OGGING_BUF DESC 3; Anything left in the record buffer? 
360 CO ; 1190 BEQL ; Nothing left, go dump the buffer 
OD OBEO'DF 91 4 1191 CMPB @LUGGING_BUFDESC+4, #13 ; Was the <LF> preceeded by a <CR>? 
Is 9 1136 BNEQ ; No, go dump the buffer 
OBDC 'CF ° 119 DECW b2561NG_BUFDESC ; Yes, remove the <CR> from buffer 
1 , V13e BRB $ ; and then go dump the buffer 
OD 52 91 91 1138 208: CMPB R2, #13 : Is it a <CR>? 
06 1 94 119 BNEQ ; Nope 
OBDC'CF 8B 96 1138 TSTW LOGGING_BUF DESC ; Putting <CR> into an empty buffer? 
: 9A 119 BEQL ; Would've, but don’t, just ignore it 
OOFF 8F  OBDC'CF 1 9C 1200 30S: CMPW LQSGING_BUFDESC, #LOGGING_BUFLEN ; Room in buffer for another? 
03 iF OBA3 1201 BLSSU 408 77Room exists, go buffer character 
FEFF 0 AS 1 § BSBW DUMP_LOG : Else dump the pert ies record buffer 
Of CF B6 1 40$ INCW LOGGING_BUF DESC 3; Say one more c arecter in buffer 
EO'CF Be AC 1204 INCL LOGGING BUFDESC+4 ; Bump the record buffer pointer 
OBEO' DF 2 1205 MOVB R2, SL QGGING_BUFDESC+4 : _and store the character in buffer 
oc , 91 1 $ CMPB Re, # ; Did we just store a <FF>? 
03 12 8 1 BNEQ 608 ; Nope 
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TAB = 00 8 os FINALACS eeeeeeee = 4 
$$. TABEND = FINALPATH eeeeeene 2 
$. TMP = 8 FIRSTCMD eeeeekee =X 4 
$$. TMP1 = 8 001 HELLO 0000081 § 
$$.TMP2 = QOQOQOOAF HELPPROMPT 0000097 

$T1 = 8 4 INDFLAG eeeeeeee = §=6X 4 

ORT_QUIT CR 04 I1OSM_CTRLCAST eeeeeeee 8§6 4 
ASCII_TRIM 000 rt e Bg 10$M_DSABLMBX aeaenere =X 8 02 
CMDBUFFER 4 od R 0 1O$M_NOE CHO eeeeeeee =X 04 
CMDBUFLEN = 4 0 1O$M_NOFILTR eeekeeee = §=6X B 
CMDHELP 8 0 43 R 0 I1OSM_TIMED aeakeeee =X 4 
CMDIOSB 8 gee R 8 10$M~ TRMNOE CHO eeeneeee =X 2 
CMDMASK 0000560 R 10$V—NOECHO eeeaeeee =X 4 
CMDODT adits f 0 10$V ILT eeakeeee 8 6X 4 
CMDPROMPT 0000588 R 0 10$_READPROMPT eeeeeeee =X 04 
CNTLBF ai ett R 02 10$_READVBLK eeekenee = =X 02 
CNILBF_ECHOFLG 000008DB R 02 10$_SETMODE weaneeee = §=6X = =604 
CNTRLCRAN eerereee X 04 10$_WRITEVBLK ekekeeee x 04 
CONF BF 00000958 R 02 LINRBUFFER 00000012 R 02 
CONFBF_LEN = 0000000 LINKBUFLEN = 00000200 
CONNECT 00000822 R 02 LINKCHAN eeeeeeee KX 04 
CALF PROMPT 00000590 R 02 LINKIOSB QO00000A R 02 
CTRLCAST 00000394 R 04 LINKMBXAST QOOO02DE R 04 
CTRLC_CNT 000002 R 02 LINKMBXBUFFER QOOO08E4S R 02 
CTRLC_IOSB 000448 R 02 LINKMBXBUFLEN = 00000028 
CTRLC_MATCH 000007 R 02 LINKMBXIOS Q00008DC R 02 
CTRLC_MSG 000453 R 02 LINKMBXREAD 000002B2 R 04 
cre “SENT 000006 R 02 LINKREAD BRD poor Fe 04 
CTRLP 000488 R 04 LINKREADAST 00000972 R 04 
DIBSB_DEVCLASS = 00000004 LOGGING_BUF DESC QOOOOBDC R 02 
DIBSL_DEVDEPEND = 00000008 LOGGING_BUFFER QOOOOBES R 02 
DIBSW"DEVBUF SIZ = 00000006 LOGGING_BUFLEN = QOOQOOOFF 
DO_LOG 000B6D 04 LOGGING_FAB este R 02 
DST$B_CLASS = 00000003 LOGGING_FDEF 00000833 R 02 
DSC$K-CLASS_D = sso 3 LOGGING_FDEF _LEN = 00000009 
DuMP_COG OOOAA 04 OGGING_FLAG 00000B32 R 02 
ECHOBUF FER 00031D 02 LOGGING_MSGVEC QO0000BD0 R 02 
EIGHT BIT a) 02 LOGGING_RAB QOO000B8C R 
ENABLE_CTRLC F4 04 OGIN QOO000B1A R 

ND_L A7E 04 CHAN eekeeeer x 
ERASEPROMPT 9A 02 MSG$_ABORT ekeeeeee =X 
FABSB_FNS = 34 MSGS$_CONF IRM eeeekeee =X 
FABSC_BID = 03 _DISCON aeeeeeee = 
FABSC_BLN = 50 MSG$_TRMHANGUP aeeeeeee = §=6yX 
FABSC_SE = 0 NE TMBXVEC 00000948 R 
FABSC_VAR = 0 NODE NAME aekeeeee §=6Y 
FABSL_ALQ = 1 mi curent rast 000082D R 
FABSL_FNA = C OUTPUT_WAIT 83 9R 
FABSL_FOP = 4 QUIT 0 1 R 
FABSL_STV s RABS$B_RAC = 0001 
Ff ABSV~_ CHAN_MODE = 3 RABSC_BID = 8 0 
FABSV_CR = RABS$C_BLN = 44 
FABSV-FILE_MODE = 4 RABS$C_SEQ = 0 
F ABSV_LNM_FODE = 8 RABSL_CTX = 1 
FABSV_PUT = RABSL_RBF = 
FABSV_SQ0 = 8 RABS$L_ROP = 4 
F ABSW_GBC = 4 RABSL_STV = C 
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RABSL _UBF = $8008 4 TTSV_MECHTAB = 00000008 
RABSV_WBP = QO00A TT$V_SCOPE = Bogue 
RABSW_RSZ = 8 0 3 TTYPB 494 BR 
RABSW_USZ = 000000 TTYPB ILL 0964 R 
READCRAN rteeeeee 04 TTYPBF-TYPE 00096 R 
MODE 00000321 R 0 TTYPBF_WIDTH 0000960 R 
REMS_NETMBX eekerker 0 WAKEF eeereeee 
REMS REMOTE geeeeeee 0 WRITE eheeeeee 
MPROMP 00000966 0 XXXRT 000000¢B 
RETSTATUS eeekeere 04 
RMSS$_EOF eeekenee 04 
RMSMSGVEC 0800082 bg 
TSHELP OOO0AC 
TSRT 00000000 04 
ABORT eekkeeee 04 
SS$_CONTROLC eekkrenk 04 
SS$_CONTROLY eeeeeeee 04 
SS$ NORMAL Reeeeeee 04 
START _LGG OOOOOAEC 04 
STRSCONCAT eeeeeene 04 
SYSSCANCEL eeeeeeee 04 
SYSSCLOSE eetkekee 04 
SYSSCONNECT eeeeeeee 04 
SYSSCREATE eeeeeeee 04 
SYSSDCLAST eekeeeee 04 
SYSSGET eeekeeee 04 
SYSSPUT eeekkeee o¢ 
SYSSPUTMSG rerekeee 4 
YS$QI0 Rkekekee 04 
SYS$Ql10wW teekeeee 04 
SYSSWAKE eeeekeee 04 
SYSINF AB eekkeene 04 
SYSINR kekeneee 04 
TERBUFFER OOO002Z1E R 02 
TERBUF LEN = QOOOOOFF 
TERIOS 00000212 R 02 
TERMASK 00000525 R 02 
TERMCHAR teeeeeee 04 
ERMMBXAS 00000268 R 04 
TERMMEXBUF FER 00000914 R 02 
TERMMBXBUFLEN = 00000028 
TERMMBX CHAN terrane 04 
fe HER seen eg 
TERREAD 2000858 Rd 
TERREADAST 00 te R 04 
TOPS20 00 OR 02 
TOPS20OHELP OQOOOOAEB R 6 
T ORT 4 AR 4 
TTSM_ESCAPE = 8 f 
TTSM_HALF DUP = 1 
TT$M_PASSALL = 0 1 
TTSM_WRAP = 0200 
TT$V_EIGHTBIT = F 
TT$V_HOSTSYNC = 4 
TT$V_LOWER = 7 
TTSV_MECHFORM = 13 


RSTSRT . 
Psect synopsis 


¢eceeecescoes eoccece+ 
! ; Psect synopsis H 


PSECT name Allocation PSECT No. Attributes 
ABS 00000000 ( 0.) 00 ¢ QO.) NOPIC USR CON ABS - LCL NOSHR NOEXE 
SABSS$ 4 eg ( 0.) QO1¢ +1.) NOPIC USR CON ABS LCL NOSHR- EXE 
RSTSRT QOOOOCES ( 3299.) 8 ( ¢°3 NOPIC USR CON REL LCL NOSHR- EXE 
PROTOTBL Q000000C 12.) 03 ( -) NOPIC USR CON’ REL LCL NOSHR NOEXE 
RSTSRT 00000BC1 (¢ 3009.) 04 ( 4.) NOPIC USR CON’ REL LCL NOSHR EXE 
eee oo 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 34 00:00:00.04 00:00:01.02 
pemnend processing 122 00:00:00.45 SS Se a 
s 1 459 00:00:10.91 00:00:42.31 
oe table sort 0 bs 4 So 00:00:01.56 
Pass 2 299 00:00:03.19 00:00:12.95 
Symbol table output 22 00:00:00.12 00:00:00.52 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 940 00:00:15.55 00:01:00.66 


The yerking set Limit was 1950 pages. 

128125 bytes (251 pages) of virtual memory were used to buffer the intermediate code. 

ioece were 50 pages of symbol table space allocated to hold 722 non-local and 147 local symbols. 
1212 source Lines were read in Pass 1 "ain 35 object records in Pass 2. 

40 pages of virtual memory were used to define 34 macros. 


Sor eaten enna mc er ween we mm ee + 


Macro Library name 
~ BS 228DUA 8: ay A Og eee: -MLB;1 
“$255$DUA 
Bertin Ceysi IBISTARLET. MLB; 2 $3 
TOTALS ‘all Libraries) 


951 GETS were required to define 28 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RSTSRT/OBJ=OBJ$:RSTSRT MSRC$:RSTSRT/UPDATE=(ENHS:RSTSRT) ¢EXECML$/LIB+LIB$:RTPAD/LIB 
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NORD 
RD 
RD 


RD 
RD 


NOWRT NOVEC BYTE 


RT N 
NOWRT NOVEC BYTE 
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